<!DOCTYPE html>
<html lang="" xml:lang="">
<head>

  <meta charset="utf-8" />
  <meta http-equiv="X-UA-Compatible" content="IE=edge" />
  <title>第 10 章 LI-6800 的数据分析 | 使用 R 语言分析 LI-6400 和 LI-6800 光合仪的数据</title>
  <meta name="description" content="使用 R 语言分析 LI-6400XT 与 LI-6800 数据" />
  <meta name="generator" content="bookdown 0.24 and GitBook 2.6.7" />

  <meta property="og:title" content="第 10 章 LI-6800 的数据分析 | 使用 R 语言分析 LI-6400 和 LI-6800 光合仪的数据" />
  <meta property="og:type" content="book" />
  
  <meta property="og:image" content="/images/coverpage.png" />
  <meta property="og:description" content="使用 R 语言分析 LI-6400XT 与 LI-6800 数据" />
  <meta name="github-repo" content="zhujiedong/photoanalysis" />

  <meta name="twitter:card" content="summary" />
  <meta name="twitter:title" content="第 10 章 LI-6800 的数据分析 | 使用 R 语言分析 LI-6400 和 LI-6800 光合仪的数据" />
  
  <meta name="twitter:description" content="使用 R 语言分析 LI-6400XT 与 LI-6800 数据" />
  <meta name="twitter:image" content="/images/coverpage.png" />

<meta name="author" content="祝介东    北京力高泰科技有限公司" />


<meta name="date" content="2021-11-12" />

  <meta name="viewport" content="width=device-width, initial-scale=1" />
  <meta name="apple-mobile-web-app-capable" content="yes" />
  <meta name="apple-mobile-web-app-status-bar-style" content="black" />
  
  
<link rel="prev" href="start_con.html"/>
<link rel="next" href="big-leaf.html"/>
<script src="libs/header-attrs-2.11/header-attrs.js"></script>
<script src="libs/jquery-3.6.0/jquery-3.6.0.min.js"></script>
<script src="https://cdn.jsdelivr.net/npm/fuse.js@6.4.6/dist/fuse.min.js"></script>
<link href="libs/gitbook-2.6.7/css/style.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-table.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-bookdown.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-highlight.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-search.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-fontsettings.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-clipboard.css" rel="stylesheet" />








<link href="libs/anchor-sections-1.0.1/anchor-sections.css" rel="stylesheet" />
<script src="libs/anchor-sections-1.0.1/anchor-sections.js"></script>


<style type="text/css">
pre > code.sourceCode { white-space: pre; position: relative; }
pre > code.sourceCode > span { display: inline-block; line-height: 1.25; }
pre > code.sourceCode > span:empty { height: 1.2em; }
.sourceCode { overflow: visible; }
code.sourceCode > span { color: inherit; text-decoration: inherit; }
pre.sourceCode { margin: 0; }
@media screen {
div.sourceCode { overflow: auto; }
}
@media print {
pre > code.sourceCode { white-space: pre-wrap; }
pre > code.sourceCode > span { text-indent: -5em; padding-left: 5em; }
}
pre.numberSource code
  { counter-reset: source-line 0; }
pre.numberSource code > span
  { position: relative; left: -4em; counter-increment: source-line; }
pre.numberSource code > span > a:first-child::before
  { content: counter(source-line);
    position: relative; left: -1em; text-align: right; vertical-align: baseline;
    border: none; display: inline-block;
    -webkit-touch-callout: none; -webkit-user-select: none;
    -khtml-user-select: none; -moz-user-select: none;
    -ms-user-select: none; user-select: none;
    padding: 0 4px; width: 4em;
    color: #aaaaaa;
  }
pre.numberSource { margin-left: 3em; border-left: 1px solid #aaaaaa;  padding-left: 4px; }
div.sourceCode
  {   }
@media screen {
pre > code.sourceCode > span > a:first-child::before { text-decoration: underline; }
}
code span.al { color: #ff0000; font-weight: bold; } /* Alert */
code span.an { color: #60a0b0; font-weight: bold; font-style: italic; } /* Annotation */
code span.at { color: #7d9029; } /* Attribute */
code span.bn { color: #40a070; } /* BaseN */
code span.bu { } /* BuiltIn */
code span.cf { color: #007020; font-weight: bold; } /* ControlFlow */
code span.ch { color: #4070a0; } /* Char */
code span.cn { color: #880000; } /* Constant */
code span.co { color: #60a0b0; font-style: italic; } /* Comment */
code span.cv { color: #60a0b0; font-weight: bold; font-style: italic; } /* CommentVar */
code span.do { color: #ba2121; font-style: italic; } /* Documentation */
code span.dt { color: #902000; } /* DataType */
code span.dv { color: #40a070; } /* DecVal */
code span.er { color: #ff0000; font-weight: bold; } /* Error */
code span.ex { } /* Extension */
code span.fl { color: #40a070; } /* Float */
code span.fu { color: #06287e; } /* Function */
code span.im { } /* Import */
code span.in { color: #60a0b0; font-weight: bold; font-style: italic; } /* Information */
code span.kw { color: #007020; font-weight: bold; } /* Keyword */
code span.op { color: #666666; } /* Operator */
code span.ot { color: #007020; } /* Other */
code span.pp { color: #bc7a00; } /* Preprocessor */
code span.sc { color: #4070a0; } /* SpecialChar */
code span.ss { color: #bb6688; } /* SpecialString */
code span.st { color: #4070a0; } /* String */
code span.va { color: #19177c; } /* Variable */
code span.vs { color: #4070a0; } /* VerbatimString */
code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warning */
</style>

<style type="text/css">
/* Used with Pandoc 2.11+ new --citeproc when CSL is used */
div.csl-bib-body { }
div.csl-entry {
  clear: both;
}
.hanging div.csl-entry {
  margin-left:2em;
  text-indent:-2em;
}
div.csl-left-margin {
  min-width:2em;
  float:left;
}
div.csl-right-inline {
  margin-left:2em;
  padding-left:1em;
}
div.csl-indent {
  margin-left: 2em;
}
</style>

<link rel="stylesheet" href="css/style.css" type="text/css" />
</head>

<body>



  <div class="book without-animation with-summary font-size-2 font-family-1" data-basepath=".">

    <div class="book-summary">
      <nav role="navigation">

<ul class="summary">
<li><a href="./">R 软件与光合数据分析</a></li>

<li class="divider"></li>
<li class="chapter" data-level="" data-path="index.html"><a href="index.html"><i class="fa fa-check"></i>欢迎</a></li>
<li class="chapter" data-level="" data-path="frontmatter.html"><a href="frontmatter.html"><i class="fa fa-check"></i>前言</a></li>
<li class="chapter" data-level="" data-path="copyright.html"><a href="copyright.html"><i class="fa fa-check"></i>版权</a></li>
<li class="chapter" data-level="1" data-path="intro.html"><a href="intro.html"><i class="fa fa-check"></i><b>1</b> R 软件与 Rstudio</a>
<ul>
<li class="chapter" data-level="1.1" data-path="intro.html"><a href="intro.html#rsoft"><i class="fa fa-check"></i><b>1.1</b> R 软件</a></li>
<li class="chapter" data-level="1.2" data-path="intro.html"><a href="intro.html#rstudiosoft"><i class="fa fa-check"></i><b>1.2</b> Rstudio</a></li>
</ul></li>
<li class="chapter" data-level="2" data-path="batch_question.html"><a href="batch_question.html"><i class="fa fa-check"></i><b>2</b> 批量处理光合测定数据</a>
<ul>
<li class="chapter" data-level="2.1" data-path="batch_question.html"><a href="batch_question.html#install_readphoto"><i class="fa fa-check"></i><b>2.1</b> 安装</a></li>
<li class="chapter" data-level="2.2" data-path="batch_question.html"><a href="batch_question.html#batch64"><i class="fa fa-check"></i><b>2.2</b> LI-6400 数据处理</a>
<ul>
<li class="chapter" data-level="2.2.1" data-path="batch_question.html"><a href="batch_question.html#li-6400-数据的整合6400combine"><i class="fa fa-check"></i><b>2.2.1</b> LI-6400 数据的整合{#6400combine}</a></li>
<li class="chapter" data-level="2.2.2" data-path="batch_question.html"><a href="batch_question.html#recompute6400"><i class="fa fa-check"></i><b>2.2.2</b> LI-6400 数据重计算</a></li>
</ul></li>
<li class="chapter" data-level="2.3" data-path="batch_question.html"><a href="batch_question.html#li-6800-数据的处理-6800data"><i class="fa fa-check"></i><b>2.3</b> LI-6800 数据的处理 {#6800data}</a>
<ul>
<li class="chapter" data-level="2.3.1" data-path="batch_question.html"><a href="batch_question.html#r-下-excel-格式读取的重计算-6800xlconnect"><i class="fa fa-check"></i><b>2.3.1</b> R 下 Excel 格式读取的重计算 {##6800xlconnect}</a></li>
<li class="chapter" data-level="2.3.2" data-path="batch_question.html"><a href="batch_question.html#python"><i class="fa fa-check"></i><b>2.3.2</b> 使用 Python 来处理</a></li>
<li class="chapter" data-level="2.3.3" data-path="batch_question.html"><a href="batch_question.html#python-r-batch"><i class="fa fa-check"></i><b>2.3.3</b> 批量处理 csv 文件</a></li>
</ul></li>
</ul></li>
<li class="chapter" data-level="3" data-path="response_fit.html"><a href="response_fit.html"><i class="fa fa-check"></i><b>3</b> CO<sub>2</sub> 响应曲线的拟合</a>
<ul>
<li class="chapter" data-level="3.1" data-path="response_fit.html"><a href="response_fit.html#fvcb_mod"><i class="fa fa-check"></i><b>3.1</b> FvCB 模型</a></li>
<li class="chapter" data-level="3.2" data-path="response_fit.html"><a href="response_fit.html#co2_note"><i class="fa fa-check"></i><b>3.2</b> CO<sub>2</sub> 响应曲线测量的注意事项</a>
<ul>
<li class="chapter" data-level="3.2.1" data-path="response_fit.html"><a href="response_fit.html#model_3"><i class="fa fa-check"></i><b>3.2.1</b> 分段性</a></li>
<li class="chapter" data-level="3.2.2" data-path="response_fit.html"><a href="response_fit.html#note_detail"><i class="fa fa-check"></i><b>3.2.2</b> 测量注意事项</a></li>
</ul></li>
<li class="chapter" data-level="3.3" data-path="response_fit.html"><a href="response_fit.html#plantecophys"><i class="fa fa-check"></i><b>3.3</b> <code>plantecophys</code> 软件包</a></li>
<li class="chapter" data-level="3.4" data-path="response_fit.html"><a href="response_fit.html#fit6400"><i class="fa fa-check"></i><b>3.4</b> LI-6400XT CO<sub>2</sub> 响应曲线的拟合</a>
<ul>
<li class="chapter" data-level="3.4.1" data-path="response_fit.html"><a href="response_fit.html#fitaci_intro"><i class="fa fa-check"></i><b>3.4.1</b> fitaci 函数介绍</a></li>
</ul></li>
<li class="chapter" data-level="3.5" data-path="response_fit.html"><a href="response_fit.html#plantecophy_use"><i class="fa fa-check"></i><b>3.5</b> 使用 <code>plantecophys</code> 拟合 LI-6400XT CO<sub>2</sub> 响应曲线数据</a>
<ul>
<li class="chapter" data-level="3.5.1" data-path="response_fit.html"><a href="response_fit.html#data6400"><i class="fa fa-check"></i><b>3.5.1</b> 数据的前处理</a></li>
<li class="chapter" data-level="3.5.2" data-path="response_fit.html"><a href="response_fit.html#fitaci-p"><i class="fa fa-check"></i><b>3.5.2</b> 使用示例</a></li>
<li class="chapter" data-level="3.5.3" data-path="response_fit.html"><a href="response_fit.html#onpoint_fit"><i class="fa fa-check"></i><b>3.5.3</b> 使用 ‘onepoint’ 单独计算 V<sub>cmax</sub> 和 J<sub>max</sub></a></li>
<li class="chapter" data-level="3.5.4" data-path="response_fit.html"><a href="response_fit.html#multi_curve"><i class="fa fa-check"></i><b>3.5.4</b> 多条 CO<sub>2</sub> 响应曲线的拟合</a></li>
<li class="chapter" data-level="3.5.5" data-path="response_fit.html"><a href="response_fit.html#transition"><i class="fa fa-check"></i><b>3.5.5</b> <code>findCiTransition</code> 函数</a></li>
</ul></li>
<li class="chapter" data-level="3.6" data-path="response_fit.html"><a href="response_fit.html#c4"><i class="fa fa-check"></i><b>3.6</b> C4 植物光合</a>
<ul>
<li class="chapter" data-level="3.6.1" data-path="response_fit.html"><a href="response_fit.html#c4_sim"><i class="fa fa-check"></i><b>3.6.1</b> C4 植物光合速率的计算</a></li>
</ul></li>
</ul></li>
<li class="chapter" data-level="4" data-path="stomotal_sim.html"><a href="stomotal_sim.html"><i class="fa fa-check"></i><b>4</b> 气孔导度模型的拟合</a>
<ul>
<li class="chapter" data-level="4.1" data-path="stomotal_sim.html"><a href="stomotal_sim.html#ballberry"><i class="fa fa-check"></i><b>4.1</b> BallBerry 模型</a></li>
<li class="chapter" data-level="4.2" data-path="stomotal_sim.html"><a href="stomotal_sim.html#bbleuning"><i class="fa fa-check"></i><b>4.2</b> BBLeuning 模型</a></li>
<li class="chapter" data-level="4.3" data-path="stomotal_sim.html"><a href="stomotal_sim.html#bboptifull"><i class="fa fa-check"></i><b>4.3</b> BBOptiFull 模型</a></li>
<li class="chapter" data-level="4.4" data-path="stomotal_sim.html"><a href="stomotal_sim.html#fitbb-p"><i class="fa fa-check"></i><b>4.4</b> <code>fitBB</code> 函数</a></li>
<li class="chapter" data-level="4.5" data-path="stomotal_sim.html"><a href="stomotal_sim.html#fitbbs"><i class="fa fa-check"></i><b>4.5</b> <code>fitBBs</code> 函数</a></li>
</ul></li>
<li class="chapter" data-level="5" data-path="stomotal_couple.html"><a href="stomotal_couple.html"><i class="fa fa-check"></i><b>5</b> 光合最优气孔导度耦合模型</a>
<ul>
<li class="chapter" data-level="5.1" data-path="stomotal_couple.html"><a href="stomotal_couple.html#farao"><i class="fa fa-check"></i><b>5.1</b> <code>FARAO</code> 函数</a></li>
</ul></li>
<li class="chapter" data-level="6" data-path="photo_stomo.html"><a href="photo_stomo.html"><i class="fa fa-check"></i><b>6</b> 光合气孔导度耦合模型</a>
<ul>
<li class="chapter" data-level="6.1" data-path="photo_stomo.html"><a href="photo_stomo.html#photosyn"><i class="fa fa-check"></i><b>6.1</b> <code>Photosyn</code> 函数</a>
<ul>
<li class="chapter" data-level="6.1.1" data-path="photo_stomo.html"><a href="photo_stomo.html#photo_exam"><i class="fa fa-check"></i><b>6.1.1</b> <code>Photosyn</code> 使用举例</a></li>
</ul></li>
<li class="chapter" data-level="6.2" data-path="photo_stomo.html"><a href="photo_stomo.html#photsyneb"><i class="fa fa-check"></i><b>6.2</b> <code>PhotosynEB</code> 函数</a></li>
<li class="chapter" data-level="6.3" data-path="photo_stomo.html"><a href="photo_stomo.html#photosyntuzet"><i class="fa fa-check"></i><b>6.3</b> <code>PhotosynTuzet</code> 函数</a>
<ul>
<li class="chapter" data-level="6.3.1" data-path="photo_stomo.html"><a href="photo_stomo.html#photosyntuzet_para"><i class="fa fa-check"></i><b>6.3.1</b> <code>PhotosynTuzet</code> 的参数</a></li>
</ul></li>
</ul></li>
<li class="chapter" data-level="7" data-path="rhtovpd.html"><a href="rhtovpd.html"><i class="fa fa-check"></i><b>7</b> RHtoVPD 函数</a></li>
<li class="chapter" data-level="8" data-path="lrc_fit.html"><a href="lrc_fit.html"><i class="fa fa-check"></i><b>8</b> 光响应曲线的拟合</a>
<ul>
<li class="chapter" data-level="8.1" data-path="lrc_fit.html"><a href="lrc_fit.html#rec_mod"><i class="fa fa-check"></i><b>8.1</b> 直角双曲线模型</a>
<ul>
<li class="chapter" data-level="8.1.1" data-path="lrc_fit.html"><a href="lrc_fit.html#rec_fit"><i class="fa fa-check"></i><b>8.1.1</b> 直角双曲线模型的实现</a></li>
</ul></li>
<li class="chapter" data-level="8.2" data-path="lrc_fit.html"><a href="lrc_fit.html#nonrec-mod"><i class="fa fa-check"></i><b>8.2</b> 非直角双曲线模型</a>
<ul>
<li class="chapter" data-level="8.2.1" data-path="lrc_fit.html"><a href="lrc_fit.html#nonrec_mode_exam"><i class="fa fa-check"></i><b>8.2.1</b> 非直角双曲线模型的实现</a></li>
</ul></li>
<li class="chapter" data-level="8.3" data-path="lrc_fit.html"><a href="lrc_fit.html#lrc_exp"><i class="fa fa-check"></i><b>8.3</b> 指数模型</a>
<ul>
<li class="chapter" data-level="8.3.1" data-path="lrc_fit.html"><a href="lrc_fit.html#lrc_exp_exam"><i class="fa fa-check"></i><b>8.3.1</b> 指数模型的实现</a></li>
</ul></li>
<li class="chapter" data-level="8.4" data-path="lrc_fit.html"><a href="lrc_fit.html#rev_rec"><i class="fa fa-check"></i><b>8.4</b> 直角双曲线的修正模型</a>
<ul>
<li class="chapter" data-level="8.4.1" data-path="lrc_fit.html"><a href="lrc_fit.html#rev_rec_exam"><i class="fa fa-check"></i><b>8.4.1</b> 直角双曲线修正模型的实现</a></li>
</ul></li>
</ul></li>
<li class="chapter" data-level="9" data-path="start_con.html"><a href="start_con.html"><i class="fa fa-check"></i><b>9</b> 关于非线性拟合的初始值</a>
<ul>
<li class="chapter" data-level="9.1" data-path="start_con.html"><a href="start_con.html#nlslm"><i class="fa fa-check"></i><b>9.1</b> nlsLM 解决方案</a></li>
<li class="chapter" data-level="9.2" data-path="start_con.html"><a href="start_con.html#plot_comp"><i class="fa fa-check"></i><b>9.2</b> 作图比对法</a>
<ul>
<li class="chapter" data-level="9.2.1" data-path="start_con.html"><a href="start_con.html#plot_exam"><i class="fa fa-check"></i><b>9.2.1</b> 实现过程</a></li>
<li class="chapter" data-level="9.2.2" data-path="start_con.html"><a href="start_con.html#show_demo"><i class="fa fa-check"></i><b>9.2.2</b> 直观展示</a></li>
</ul></li>
<li class="chapter" data-level="9.3" data-path="start_con.html"><a href="start_con.html#mult_try"><i class="fa fa-check"></i><b>9.3</b> 自动多次尝试法</a></li>
<li class="chapter" data-level="9.4" data-path="start_con.html"><a href="start_con.html#sum_start"><i class="fa fa-check"></i><b>9.4</b> 小结</a></li>
</ul></li>
<li class="chapter" data-level="10" data-path="anay_6800.html"><a href="anay_6800.html"><i class="fa fa-check"></i><b>10</b> LI-6800 的数据分析</a>
<ul>
<li class="chapter" data-level="10.1" data-path="anay_6800.html"><a href="anay_6800.html#data6800"><i class="fa fa-check"></i><b>10.1</b> 数据格式</a></li>
<li class="chapter" data-level="10.2" data-path="anay_6800.html"><a href="anay_6800.html#dif"><i class="fa fa-check"></i><b>10.2</b> LI-6800 与 LI-6400 使用时的差别</a></li>
<li class="chapter" data-level="10.3" data-path="anay_6800.html"><a href="anay_6800.html#notice"><i class="fa fa-check"></i><b>10.3</b> 光响应曲线注意事项</a></li>
<li class="chapter" data-level="10.4" data-path="anay_6800.html"><a href="anay_6800.html#other_light_response"><i class="fa fa-check"></i><b>10.4</b> 其他软件包的光响应曲线</a></li>
<li class="chapter" data-level="10.5" data-path="anay_6800.html"><a href="anay_6800.html#racir68"><i class="fa fa-check"></i><b>10.5</b> LI-6800 RACiR的测量与拟合</a></li>
<li class="chapter" data-level="10.6" data-path="anay_6800.html"><a href="anay_6800.html#racir-conifer"><i class="fa fa-check"></i><b>10.6</b> LI-6800 RACiR簇状叶的测量与拟合</a></li>
<li class="chapter" data-level="10.7" data-path="anay_6800.html"><a href="anay_6800.html#multi1"><i class="fa fa-check"></i><b>10.7</b> 多个速率的 RACiR 曲线研究</a>
<ul>
<li class="chapter" data-level="10.7.1" data-path="anay_6800.html"><a href="anay_6800.html#multi2"><i class="fa fa-check"></i><b>10.7.1</b> 光呼吸滞后模型</a></li>
<li class="chapter" data-level="10.7.2" data-path="anay_6800.html"><a href="anay_6800.html#code-photoresp"><i class="fa fa-check"></i><b>10.7.2</b> 光呼吸滞后性代码</a></li>
<li class="chapter" data-level="10.7.3" data-path="anay_6800.html"><a href="anay_6800.html#multi4"><i class="fa fa-check"></i><b>10.7.3</b> 数据的构造</a></li>
<li class="chapter" data-level="10.7.4" data-path="anay_6800.html"><a href="anay_6800.html#multi5"><i class="fa fa-check"></i><b>10.7.4</b> 光呼吸滞后性作图</a></li>
<li class="chapter" data-level="10.7.5" data-path="anay_6800.html"><a href="anay_6800.html#multi6"><i class="fa fa-check"></i><b>10.7.5</b> 补偿点计算</a></li>
<li class="chapter" data-level="10.7.6" data-path="anay_6800.html"><a href="anay_6800.html#multi7"><i class="fa fa-check"></i><b>10.7.6</b> 无光呼吸酶失活模块</a></li>
<li class="chapter" data-level="10.7.7" data-path="anay_6800.html"><a href="anay_6800.html#multi9"><i class="fa fa-check"></i><b>10.7.7</b> 酶失活作图</a></li>
<li class="chapter" data-level="10.7.8" data-path="anay_6800.html"><a href="anay_6800.html#multi10"><i class="fa fa-check"></i><b>10.7.8</b> 不同失活程度下补偿点计算</a></li>
</ul></li>
<li class="chapter" data-level="10.8" data-path="anay_6800.html"><a href="anay_6800.html#multi11"><i class="fa fa-check"></i><b>10.8</b> 时间延迟的扩散限制</a>
<ul>
<li class="chapter" data-level="10.8.1" data-path="anay_6800.html"><a href="anay_6800.html#multi12"><i class="fa fa-check"></i><b>10.8.1</b> 扩散限制滞后性</a></li>
</ul></li>
<li class="chapter" data-level="10.9" data-path="anay_6800.html"><a href="anay_6800.html#multi13"><i class="fa fa-check"></i><b>10.9</b> 扩散限制作图</a>
<ul>
<li class="chapter" data-level="10.9.1" data-path="anay_6800.html"><a href="anay_6800.html#multi14"><i class="fa fa-check"></i><b>10.9.1</b> 补偿点的计算</a></li>
<li class="chapter" data-level="10.9.2" data-path="anay_6800.html"><a href="anay_6800.html#multi15"><i class="fa fa-check"></i><b>10.9.2</b> 所有图形代码</a></li>
</ul></li>
<li class="chapter" data-level="10.10" data-path="anay_6800.html"><a href="anay_6800.html#fluro68"><i class="fa fa-check"></i><b>10.10</b> LI-6800 荧光数据分析</a>
<ul>
<li class="chapter" data-level="10.10.1" data-path="anay_6800.html"><a href="anay_6800.html#jiptest"><i class="fa fa-check"></i><b>10.10.1</b> jip test 的实现</a></li>
<li class="chapter" data-level="10.10.2" data-path="anay_6800.html"><a href="anay_6800.html#jiptest_pack"><i class="fa fa-check"></i><b>10.10.2</b> <code>jiptest</code> 软件包安装</a></li>
<li class="chapter" data-level="10.10.3" data-path="anay_6800.html"><a href="anay_6800.html#readfluor"><i class="fa fa-check"></i><b>10.10.3</b> <code>read_files</code> 及 <code>read_dcfiles</code> 函数</a></li>
<li class="chapter" data-level="10.10.4" data-path="anay_6800.html"><a href="anay_6800.html#testfluor"><i class="fa fa-check"></i><b>10.10.4</b> <code>jip_test</code> 及 <code>jip_dctest</code> 函数</a></li>
<li class="chapter" data-level="10.10.5" data-path="anay_6800.html"><a href="anay_6800.html#plotfluor"><i class="fa fa-check"></i><b>10.10.5</b> 图像查看函数</a></li>
</ul></li>
</ul></li>
<li class="chapter" data-level="11" data-path="big-leaf.html"><a href="big-leaf.html"><i class="fa fa-check"></i><b>11</b> 大叶模型</a>
<ul>
<li class="chapter" data-level="11.1" data-path="big-leaf.html"><a href="big-leaf.html#leaf-scale-meas"><i class="fa fa-check"></i><b>11.1</b> 叶片尺度测量</a></li>
<li class="chapter" data-level="11.2" data-path="big-leaf.html"><a href="big-leaf.html#big-leaf-data"><i class="fa fa-check"></i><b>11.2</b> 数据的处理</a>
<ul>
<li class="chapter" data-level="11.2.1" data-path="big-leaf.html"><a href="big-leaf.html#single-data-big-leaf"><i class="fa fa-check"></i><b>11.2.1</b> 单个测量数据的处理</a></li>
<li class="chapter" data-level="11.2.2" data-path="big-leaf.html"><a href="big-leaf.html#big-leaf-data-MODEL"><i class="fa fa-check"></i><b>11.2.2</b> 大叶模型的数据处理</a></li>
</ul></li>
</ul></li>
<li class="chapter" data-level="12" data-path="pca-anylysis.html"><a href="pca-anylysis.html"><i class="fa fa-check"></i><b>12</b> 大话 PCA</a>
<ul>
<li class="chapter" data-level="12.1" data-path="pca-anylysis.html"><a href="pca-anylysis.html#geom-pca"><i class="fa fa-check"></i><b>12.1</b> 几何解释</a></li>
<li class="chapter" data-level="12.2" data-path="pca-anylysis.html"><a href="pca-anylysis.html#alge-pca"><i class="fa fa-check"></i><b>12.2</b> 线性代数解释</a>
<ul>
<li class="chapter" data-level="12.2.1" data-path="pca-anylysis.html"><a href="pca-anylysis.html#egi-pca"><i class="fa fa-check"></i><b>12.2.1</b> 特征向量与特征值</a></li>
<li class="chapter" data-level="12.2.2" data-path="pca-anylysis.html"><a href="pca-anylysis.html#man_pca"><i class="fa fa-check"></i><b>12.2.2</b> 手动实现过程</a></li>
<li class="chapter" data-level="12.2.3" data-path="pca-anylysis.html"><a href="pca-anylysis.html#prcom"><i class="fa fa-check"></i><b>12.2.3</b> <code>prcomp</code> 的实现</a></li>
</ul></li>
</ul></li>
<li class="chapter" data-level="13" data-path="sessioninfo.html"><a href="sessioninfo.html"><i class="fa fa-check"></i><b>13</b> 环境与配置</a></li>
<li class="chapter" data-level="" data-path="references.html"><a href="references.html"><i class="fa fa-check"></i>参考文献</a></li>
<li class="divider"></li>
<li><a href="https://bookdown.org" target="blank">由 bookdown 驱动</a></li>

</ul>

      </nav>
    </div>

    <div class="book-body">
      <div class="body-inner">
        <div class="book-header" role="navigation">
          <h1>
            <i class="fa fa-circle-o-notch fa-spin"></i><a href="./">使用 R 语言分析 LI-6400 和 LI-6800 光合仪的数据</a>
          </h1>
        </div>

        <div class="page-wrapper" tabindex="-1" role="main">
          <div class="page-inner">

            <section class="normal" id="section-">
<div id="anay_6800" class="section level1" number="10">
<h1><span class="header-section-number">第 10 章</span> LI-6800 的数据分析</h1>
<div id="data6800" class="section level2" number="10.1">
<h2><span class="header-section-number">10.1</span> 数据格式</h2>
<p>此处参考 @ref(batch_question) 相关内容即可。</p>
</div>
<div id="dif" class="section level2" number="10.2">
<h2><span class="header-section-number">10.2</span> LI-6800 与 LI-6400 使用时的差别</h2>
<p><code>plantecophys</code> 使用时建立在 LI-6400XT 基础之上的软件包，因此在 LI-6800 代码中，需要改动的是 fitaci、fitacis 及 fitBB 中的 varnames 选项，也就是将 LI-6400XT 的表头改为 LI-6800 的表头。
以 fitaci 函数为例：</p>
<div class="sourceCode" id="cb102"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb102-1"><a href="anay_6800.html#cb102-1" aria-hidden="true" tabindex="-1"></a> <span class="fu">fitaci</span>(aci, <span class="at">varnames =</span> </span>
<span id="cb102-2"><a href="anay_6800.html#cb102-2" aria-hidden="true" tabindex="-1"></a>        <span class="fu">list</span>(<span class="at">ALEAF =</span> <span class="st">&quot;A&quot;</span>, <span class="at">Tleaf =</span> <span class="st">&quot;Tleaf&quot;</span>, <span class="at">Ci =</span> <span class="st">&quot;Ci&quot;</span>, </span>
<span id="cb102-3"><a href="anay_6800.html#cb102-3" aria-hidden="true" tabindex="-1"></a>          <span class="at">PPFD  =</span> <span class="st">&quot;Qin&quot;</span>, <span class="at">Rd =</span> <span class="st">&quot;Rd&quot;</span>))</span></code></pre></div>
<hr />
<blockquote>
<p>注：我个人觉得这样使用对于 LI-6800 来讲十分不方便，修改了一下 <code>plantecophys</code>，专门给 LI-6800 使用，具体可参考:</p>
</blockquote>
<p>1.<a href="https://mp.weixin.qq.com/s?__biz=MzU4ODI3NjkzMg==&amp;mid=2247484404&amp;idx=1&amp;sn=d239f828729afb6a3f6e99840f2ae580&amp;chksm=fdde765fcaa9ff495d2bccaeafbdf7e2f277d049dc5c6adb6dda732acba29ab89cb166947084&amp;mpshare=1&amp;scene=1&amp;srcid=1117xK7YP4teJLDvMqin9Sgf&amp;sharer_sharetime=1605599821632&amp;sharer_shareid=54a1abf54404775401f1afca5de45145&amp;key=bf89f9a930e5471c34caab372884db37d25c335995749574e006f066cb416fb41ba01a2f69a3731482d05a92f7dc00398f5d8d1f847a524e226ab794caff8ea178345558686bb885d13916942d992b349b14905c8e7853860700ff1285c5a18a21dbf60af892e0ded188ed442d1d0168dd7c06de8f984d4ae2a98035b2592292&amp;ascene=1&amp;uin=MzMzODgyNDY5Mw%3D%3D&amp;devicetype=Windows+10+x64&amp;version=6300002f&amp;lang=zh_CN&amp;exportkey=A0TNUwEPJDhBuUPV1y9veGY%3D&amp;pass_ticket=mdhrxAzIfs74t2CBHIkfTz7IvbpYSartOOH1ofi44h03G2TjZhlDYLS8QC1%2F0ynL&amp;wx_header=0">使用示例</a></p>
<ol start="2" style="list-style-type: decimal">
<li><a href="https://github.com/zhujiedong/plantecophys2">plantecophys2</a></li>
</ol>
</div>
<div id="notice" class="section level2" number="10.3">
<h2><span class="header-section-number">10.3</span> 光响应曲线注意事项</h2>
<p>光响应曲线的拟合相对简单，仅需要光强和光合速率的值，其中需要修改的部分仅为光强的赋值部分，在文件名一致的前提下，修改如下代码即可：</p>
<div class="sourceCode" id="cb103"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb103-1"><a href="anay_6800.html#cb103-1" aria-hidden="true" tabindex="-1"></a>lrc_Q <span class="ot">&lt;-</span> lrc<span class="sc">$</span>Qin</span>
<span id="cb103-2"><a href="anay_6800.html#cb103-2" aria-hidden="true" tabindex="-1"></a>lrc_A <span class="ot">&lt;-</span> lrc<span class="sc">$</span>A </span></code></pre></div>
</div>
<div id="other_light_response" class="section level2" number="10.4">
<h2><span class="header-section-number">10.4</span> 其他软件包的光响应曲线</h2>
<p><a href="https://mp.weixin.qq.com/s?__biz=MzU4ODI3NjkzMg==&amp;mid=2247485406&amp;idx=1&amp;sn=3c9f48168663b27f698d82125a7dbe18&amp;chksm=fdde7275caa9fb63afb9e655e360c9d019c3813384fddae08b820a25800d6c6960afd120a66f&amp;token=101697346&amp;lang=zh_CN#rd">FitAQ 软件包</a></p>
<p><a href="https://mp.weixin.qq.com/s?__biz=MzU4ODI3NjkzMg==&amp;mid=2247484668&amp;idx=1&amp;sn=58b3cd098b1a07f96f6ba217a9bcc65e&amp;chksm=fdde7157caa9f84133917abfb116dfab41bc0aa5d55eaee17f122c36502bce4b4c0d9a3bff1b&amp;token=101697346&amp;lang=zh_CN#rd">photosynthesis 软件包</a></p>

</div>
<div id="racir68" class="section level2" number="10.5">
<h2><span class="header-section-number">10.5</span> LI-6800 RACiR的测量与拟合</h2>
<p>在评估作物性状时，V<span class="math inline">\(_{cmax}\)</span> 及 J<span class="math inline">\(_{max}\)</span>时非常有用，传统的 A–Ci 曲线测量要求植物叶片要在一定浓度 CO<span class="math inline">\(_{2}\)</span>
下适应几分钟后完成测量，这样的测量有几个缺点：</p>
<ul>
<li>测量时间长，一条曲线至少需要 20 – 30 min，样本量多，重复多时，这种方法几乎没有可行性。</li>
<li>整个测量过程中，时间长，酶的激活状态会有变化，叶绿体会移动，气孔的开度也会发生变化。</li>
</ul>
<p>而 LI-6800 独有的 auto control 功能在算法上允许用户自定义 CO<span class="math inline">\(_{2}\)</span> 的起始浓度和种植浓度、变化方式（线性或其他）、所花费的时间，再加上其
IRGAs 极快的响应频率，使得短时间内的 A–Ci 的测量成为现实，即快速 CO<span class="math inline">\(_{2}\)</span> 响应曲线 RACiR
测量实验，该功能使得 5 min 内测量 A–Ci 曲线成为可能。该方法的实现可参考 <span class="citation">J. R. Stinziano et al. (<a href="#ref-stinziano2017" role="doc-biblioref">2017</a>)</span>
的文章。</p>
<p><span class="citation">Joseph R. Stinziano et al. (<a href="#ref-stinziano2018" role="doc-biblioref">2018</a>)</span> 针对 RACiR技术的疑问做了解答并提出了准确测量的建议，概括如下：</p>
<ul>
<li>首先，采用 100 ppm/min 的变化速率是与标准方法重合度最高的测量。</li>
<li>其次，明确研究问题，目前已有研究表明Vcmax 与 Jmax 的计算结果与标准测量方法结果无显著差异。</li>
<li>任何条件的改变，都需要做空叶室校准，例如：流速，气体浓度变化方向、温度，斜率等。</li>
<li>空叶室校准与叶片测量采用严格的同一次校准，因为 IRGA 的漂移，需要再次匹配时，或者环境条件改变时，需要重新做空叶室校准。是否需要匹配，可通过不加叶片的最初状态查看，此时 A 值应接近为0，reference 和 sample 气体浓度读数接近相等。</li>
<li>IRGA 分析器使用 5 此多项式进行校准，推荐使用 1 次到 5 次多项式进行拟合，然后根据 BIC 指数来确定最合适的空叶室校准系数（即非参数拟合的模型选择的问题）。
确定最合适的浓度变化范围。通常需要去掉最初和最后 30 s的数据。</li>
<li>最小化校准和测量值之间的水分摩尔分数差异。甚至有可能需要控制 reference 或 sample 的水的摩尔分数而不是 Vpdleaf。
通过预实验来确定最合适的 <span class="math inline">\(CO_2\)</span> 变化范围和随时间的斜率。</li>
</ul>
<p><strong>本文之后关于racir 的空叶室校正部分全部不再支持，因为LI-6800 1.5之后的系统版本，关于两个分析器在快速变化环境条件下的校正均由仪器完成，分析工作直接使用 <code>plantecophys</code> 等软件拟合即可。</strong></p>
<p>例如下面的数据采用了 1.5.02 的 BP 程序 <code>DAT_CO2_Continuous.py</code>，直接测量的 RACiR 数据，结果如下：</p>
<div class="sourceCode" id="cb104"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb104-1"><a href="anay_6800.html#cb104-1" aria-hidden="true" tabindex="-1"></a>remotes<span class="sc">::</span><span class="fu">install_github</span>(<span class="st">&quot;zhujiedong/plantecophys2&quot;</span>)</span></code></pre></div>
<div class="sourceCode" id="cb105"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb105-1"><a href="anay_6800.html#cb105-1" aria-hidden="true" tabindex="-1"></a>adyn <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;data/racir_adyn.csv&quot;</span>)</span>
<span id="cb105-2"><a href="anay_6800.html#cb105-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb105-3"><a href="anay_6800.html#cb105-3" aria-hidden="true" tabindex="-1"></a>adyn_fit <span class="ot">&lt;-</span> plantecophys2<span class="sc">::</span><span class="fu">fitaci</span>(adyn)</span></code></pre></div>
<pre><code>## Registered S3 methods overwritten by &#39;plantecophys2&#39;:
##   method         from        
##   coef.BBfit     plantecophys
##   coef.BBfits    plantecophys
##   coef.acifit    plantecophys
##   coef.acifits   plantecophys
##   fitted.acifit  plantecophys
##   plot.acifit    plantecophys
##   plot.acifits   plantecophys
##   print.BBfit    plantecophys
##   print.BBfits   plantecophys
##   print.acifit   plantecophys
##   print.acifits  plantecophys
##   summary.acifit plantecophys</code></pre>
<pre><code>## 
## Formula: ALEAF ~ acifun_wrap(Ci, PPFD = PPFD, Vcmax = Vcmax, Jmax = Jmax, 
##     Rd = Rd, Tleaf = Tleaf, Patm = Patm, TcorrectVJ = Tcorrect, 
##     alpha = alpha, theta = theta, gmeso = gmeso, EaV = EaV, EdVC = EdVC, 
##     delsC = delsC, EaJ = EaJ, EdVJ = EdVJ, delsJ = delsJ, Km = Km, 
##     GammaStar = GammaStar)
## 
## Parameters:
##       Estimate Std. Error t value Pr(&gt;|t|)    
## Vcmax 26.99477    0.11547  233.79   &lt;2e-16 ***
## Jmax  46.99725    0.11780  398.96   &lt;2e-16 ***
## Rd     1.38036    0.02146   64.31   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.1347 on 295 degrees of freedom
## 
## Number of iterations to convergence: 7 
## Achieved convergence tolerance: 5.627e-06</code></pre>
<div class="sourceCode" id="cb108"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb108-1"><a href="anay_6800.html#cb108-1" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(adyn_fit)</span></code></pre></div>
<div class="figure">
<img src="bookdown_files/figure-html/adyn_plot-1.png" alt="使用 Adyn 来进行RACiR 的直接测量数据" width="672" />
<p class="caption">
(#fig:adyn_plot)使用 Adyn 来进行RACiR 的直接测量数据
</p>
</div>
<p>@ref(fig: dyn_plot) 展示的使用 LI-6800 自带程序测量的数据，无需修正，测量作物为早春温室的水稻。</p>
<p>** 以上为推荐方式，之前的内容自本日（2021.11.12）起正式删除 **</p>
</div>
<div id="racir-conifer" class="section level2" number="10.6">
<h2><span class="header-section-number">10.6</span> LI-6800 RACiR簇状叶的测量与拟合</h2>
<blockquote>
<p>该部分内容请使用 DAT 来测量，实际上后来的 <code>DAT_CO2_Continuous.py</code> 的测量方式参考了这篇文献的内容。代码部分删除，因为新方法无需要再进行校准了。</p>
</blockquote>
<p><span class="citation">Coursolle et al. (<a href="#ref-Coursolle12019" role="doc-biblioref">2019</a>)</span> 测量了簇状叶黑云杉和香脂冷杉两种簇状叶植物的 RACiR，其中的试验方法和结论值得在测量时借鉴，测量方法上：</p>
<ul>
<li><p>簇状叶室体积远大于荧光叶室和其他叶室，使用的 <span class="math inline">\(CO_2\)</span> 的变化为： 15 min 内从 20 ppm 到 1520 ppm 的变化，即变化的速率为 <span class="math inline">\(100 ppm \cdot min^{-1}\)</span>。但也测试了 200 - 800 ppm的部分曲线。</p></li>
<li><p>拟合使用了测量的 Rd，测量方法为：控制 reference 气路在 420 ppm 的 <span class="math inline">\(CO_2\)</span> 和 22 <span class="math inline">\(mmol \cdot mol^{-1}\)</span> 的 H<sub>2</sub>O 浓度，控制温度为 25 C，诱导后测量 Rd。</p></li>
</ul>
<p>得到了一些有帮助的结论：</p>
<ul>
<li><p>使用更大的叶室测量 RACiR 是可行的（36 <span class="math inline">\(cm^2\)</span>），叶室环境的控制需要通过预实验来确定。</p></li>
<li><p>该实验使用的 ACi 曲线测量时间在 30 到 36 min，而 RACiR 使用的<strong>完整的二氧化碳的浓度范围</strong>时，曲线耗时最大的时间接近 22 min。但使用 200 - 800 ppm 范围的变化，则时间可以下降 50%，<strong>这些部分范围的测量则可以应用于植物胁迫和表型平台的研究</strong>。</p></li>
<li><p>实验结果证明只要 match 的调整值保持不变即无需进行空叶室校准（也就是无需匹配的意思，实际的时间间隔取决于仪器的状态），但最新的 range match 功能可有效的增加空叶室校准的时间间隔（新功能，作者试验时尚未推出该功能）。</p></li>
<li><p>作者建议最好测量暗呼吸的速率，以获得最佳的 Vcmax 和 Jmax 计算结果。如果有第二台光合仪来测量则可有效的缩短测量时间。</p></li>
</ul>

</div>
<div id="multi1" class="section level2" number="10.7">
<h2><span class="header-section-number">10.7</span> 多个速率的 RACiR 曲线研究</h2>
<p>自 RACiR 技术诞生以来，极大的缩短了 Vcmax 以及 Jmax 的测量时间(<span class="citation">J. R. Stinziano et al. (<a href="#ref-stinziano2017" role="doc-biblioref">2017</a>)</span>)，但也引起了一系列争议，作者也对业内的质疑进行了一一的解答 (<span class="citation">Joseph R. Stinziano et al. (<a href="#ref-stinziano2018" role="doc-biblioref">2018</a>)</span>)，但除了因为时间长短导致酶活性，叶绿体位置等差异外，RACiR 还能说明哪些问题呢？<span class="citation">Joseph R., Rachael K., and David T. (<a href="#ref-stinziano2019" role="doc-biblioref">2019</a>)</span> 最新的研究给出一系列结论：</p>
<ul>
<li><p>扩散限制（<span class="math inline">\(CO_2\)</span> 总导度） 和光呼吸导致了表观上的标准 ACi 曲线和 RACiR 测量之间的偏差，表明他们的差异是由<strong>生物因子引起，而非仪器导致的人为误差</strong>。</p></li>
<li><p>上述原因导致的二者之间的偏差，如果不进行修正，那么将显著的低估 <span class="math inline">\(\Gamma^*\)</span>, 除非使用多个速率的 RACiR 来修正。</p></li>
<li><p>较高速率的 RACiR 曲线会增大其与标准曲线之间的偏差，但这个差距在无光呼吸的条件下会减小。</p></li>
<li><p>因为光呼吸和气体扩散限制与物种相关，结合以上结论，可以使用多个速率的 RACiR 来估算对 <span class="math inline">\(CO_2\)</span> 的总导度以及相对量的光呼吸速率。</p></li>
</ul>
<p>一些可能的方向：</p>
<ul>
<li><p>扩散限制影响 Cc 速率的变化，说明对具有较高总阻力与 <span class="math inline">\(CO_2\)</span> 比值的物种，例如针叶物种，C4 植物，较高的阻力导致 RACiR 与 标准 ACi 测量斜率更大的差异，或者测量的前提假设被破坏。</p></li>
<li><p>RACiR 可检测到代谢中 <span class="math inline">\(CO_2\)</span> 的滞后性，各种滞后性的检测对标准 ACi 测量也具有指示性。</p></li>
</ul>
<p>文中利用 R 实现了光呼吸之后模型和气体扩散限制模型，本文内容主要对文献中附录材料的源码进行解释：</p>
<div id="multi2" class="section level3" number="10.7.1">
<h3><span class="header-section-number">10.7.1</span> 光呼吸滞后模型</h3>
<p>为测试光呼吸的滞后性，作者使用一系列预先设定的参数，模拟了一条 ACc曲线，假定 Rubisco 激活状态为 100%，并且在整个测量过程中气孔导度是不变的。然后使用这些参数来模拟 RACiRs 曲线，并且假定光呼吸分别需要 0, 15, 30, 60, 120 或 300 s 来对变化的 <span class="math inline">\(CO_2\)</span> 进行响应，在实际效果上，这意味着 Cc 在最初的 0, 15, 30, 60, 120 或 300 内是不变的，最后我们对 <span class="math inline">\(\Gamma^*\)</span> 和 Ci 使用线性回归进行计算。</p>
<div id="multi3" class="section level4" number="10.7.1.1">
<h4><span class="header-section-number">10.7.1.1</span> 构造基础数据</h4>
<p>模型第一步，则是对需要使用的参数，根据文献和实际情况进行赋值，具体内容参考代码注释。</p>
<div class="sourceCode" id="cb109"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb109-1"><a href="anay_6800.html#cb109-1" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(ggplot2)</span>
<span id="cb109-2"><a href="anay_6800.html#cb109-2" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(plyr)</span></code></pre></div>
<pre><code>## 
## Attaching package: &#39;plyr&#39;</code></pre>
<pre><code>## The following object is masked from &#39;package:purrr&#39;:
## 
##     compact</code></pre>
<div class="sourceCode" id="cb112"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb112-1"><a href="anay_6800.html#cb112-1" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(gridExtra)</span>
<span id="cb112-2"><a href="anay_6800.html#cb112-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb112-3"><a href="anay_6800.html#cb112-3" aria-hidden="true" tabindex="-1"></a><span class="co"># 对图例使用自定义颜色</span></span>
<span id="cb112-4"><a href="anay_6800.html#cb112-4" aria-hidden="true" tabindex="-1"></a>gg_color_hue <span class="ot">&lt;-</span> <span class="cf">function</span>(n) {</span>
<span id="cb112-5"><a href="anay_6800.html#cb112-5" aria-hidden="true" tabindex="-1"></a>  hues <span class="ot">=</span> <span class="fu">seq</span>(<span class="dv">15</span>, <span class="dv">375</span>, <span class="at">length =</span> n <span class="sc">+</span> <span class="dv">1</span>)</span>
<span id="cb112-6"><a href="anay_6800.html#cb112-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">hcl</span>(<span class="at">h =</span> hues, <span class="at">l =</span> <span class="dv">65</span>, <span class="at">c =</span> <span class="dv">100</span>)[<span class="dv">1</span><span class="sc">:</span>n]</span>
<span id="cb112-7"><a href="anay_6800.html#cb112-7" aria-hidden="true" tabindex="-1"></a>}</span>
<span id="cb112-8"><a href="anay_6800.html#cb112-8" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb112-9"><a href="anay_6800.html#cb112-9" aria-hidden="true" tabindex="-1"></a><span class="co">#Maximum Rubisco carboxylation rate in umol m-2 s-1</span></span>
<span id="cb112-10"><a href="anay_6800.html#cb112-10" aria-hidden="true" tabindex="-1"></a>Vcmax <span class="ot">&lt;-</span> <span class="dv">110</span></span>
<span id="cb112-11"><a href="anay_6800.html#cb112-11" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb112-12"><a href="anay_6800.html#cb112-12" aria-hidden="true" tabindex="-1"></a><span class="co">#Maximum Rubisco oxygenation rate in umol m-2 s-1;</span></span>
<span id="cb112-13"><a href="anay_6800.html#cb112-13" aria-hidden="true" tabindex="-1"></a><span class="co">#Ratio from Bernacchi et al. 2001. PCE 24:253-259</span></span>
<span id="cb112-14"><a href="anay_6800.html#cb112-14" aria-hidden="true" tabindex="-1"></a>Vomax <span class="ot">&lt;-</span> <span class="fl">0.29</span> <span class="sc">*</span> Vcmax</span>
<span id="cb112-15"><a href="anay_6800.html#cb112-15" aria-hidden="true" tabindex="-1"></a><span class="co">#Dark respiration in umol m-2 s-1</span></span>
<span id="cb112-16"><a href="anay_6800.html#cb112-16" aria-hidden="true" tabindex="-1"></a>R <span class="ot">&lt;-</span> <span class="dv">2</span></span>
<span id="cb112-17"><a href="anay_6800.html#cb112-17" aria-hidden="true" tabindex="-1"></a><span class="co">#Michaelis-Menten constant for Rubisco carboxylation in umol mol-1</span></span>
<span id="cb112-18"><a href="anay_6800.html#cb112-18" aria-hidden="true" tabindex="-1"></a>Kc <span class="ot">&lt;-</span> <span class="fl">404.9</span></span>
<span id="cb112-19"><a href="anay_6800.html#cb112-19" aria-hidden="true" tabindex="-1"></a><span class="co">#Michaelis-Menten constant for Rubisco oxygenation in mmol mol-1</span></span>
<span id="cb112-20"><a href="anay_6800.html#cb112-20" aria-hidden="true" tabindex="-1"></a>Ko <span class="ot">&lt;-</span> <span class="fl">278.4</span></span>
<span id="cb112-21"><a href="anay_6800.html#cb112-21" aria-hidden="true" tabindex="-1"></a><span class="co">#oxygen concentration in mmol mol-1</span></span>
<span id="cb112-22"><a href="anay_6800.html#cb112-22" aria-hidden="true" tabindex="-1"></a>O2 <span class="ot">&lt;-</span> <span class="dv">210</span></span>
<span id="cb112-23"><a href="anay_6800.html#cb112-23" aria-hidden="true" tabindex="-1"></a>Kco <span class="ot">&lt;-</span> Kc <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> O2 <span class="sc">/</span> Ko)</span>
<span id="cb112-24"><a href="anay_6800.html#cb112-24" aria-hidden="true" tabindex="-1"></a><span class="co">#Boundary layer conductance in mol m-2 s-1</span></span>
<span id="cb112-25"><a href="anay_6800.html#cb112-25" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="dv">2</span></span>
<span id="cb112-26"><a href="anay_6800.html#cb112-26" aria-hidden="true" tabindex="-1"></a><span class="co">#stomatal conductance in mol m-2 s-1</span></span>
<span id="cb112-27"><a href="anay_6800.html#cb112-27" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.4</span></span>
<span id="cb112-28"><a href="anay_6800.html#cb112-28" aria-hidden="true" tabindex="-1"></a><span class="co">#mesophyll conductance in mol m-2 s-1</span></span>
<span id="cb112-29"><a href="anay_6800.html#cb112-29" aria-hidden="true" tabindex="-1"></a>gm <span class="ot">&lt;-</span> <span class="dv">1</span></span>
<span id="cb112-30"><a href="anay_6800.html#cb112-30" aria-hidden="true" tabindex="-1"></a><span class="co">#Chloroplastic CO2 in umol mol-1</span></span>
<span id="cb112-31"><a href="anay_6800.html#cb112-31" aria-hidden="true" tabindex="-1"></a>Cc <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">25</span><span class="sc">:</span><span class="dv">400</span>))</span>
<span id="cb112-32"><a href="anay_6800.html#cb112-32" aria-hidden="true" tabindex="-1"></a><span class="co">#oxygenation rate in umol m-2 s-1</span></span>
<span id="cb112-33"><a href="anay_6800.html#cb112-33" aria-hidden="true" tabindex="-1"></a>vo <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc <span class="sc">/</span> Kc))</span>
<span id="cb112-34"><a href="anay_6800.html#cb112-34" aria-hidden="true" tabindex="-1"></a><span class="co">#carboxylation rate in umol m-2 s-1</span></span>
<span id="cb112-35"><a href="anay_6800.html#cb112-35" aria-hidden="true" tabindex="-1"></a>vc <span class="ot">&lt;-</span> Vcmax <span class="sc">*</span> (Cc) <span class="sc">/</span> (Cc <span class="sc">+</span> Kco)</span>
<span id="cb112-36"><a href="anay_6800.html#cb112-36" aria-hidden="true" tabindex="-1"></a><span class="co">#Net CO2 assimilation in umol m-2 s-1</span></span>
<span id="cb112-37"><a href="anay_6800.html#cb112-37" aria-hidden="true" tabindex="-1"></a>A <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo <span class="sc">-</span> R</span>
<span id="cb112-38"><a href="anay_6800.html#cb112-38" aria-hidden="true" tabindex="-1"></a><span class="co">#Apparent CO2 assimilation rate in umol m-2 s-1</span></span>
<span id="cb112-39"><a href="anay_6800.html#cb112-39" aria-hidden="true" tabindex="-1"></a>Aapparent <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo</span>
<span id="cb112-40"><a href="anay_6800.html#cb112-40" aria-hidden="true" tabindex="-1"></a><span class="co">#Intercellular CO2 in umol mol-1</span></span>
<span id="cb112-41"><a href="anay_6800.html#cb112-41" aria-hidden="true" tabindex="-1"></a>Ci <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc</span>
<span id="cb112-42"><a href="anay_6800.html#cb112-42" aria-hidden="true" tabindex="-1"></a><span class="co">#Boundary layer CO2 in umol mol-1</span></span>
<span id="cb112-43"><a href="anay_6800.html#cb112-43" aria-hidden="true" tabindex="-1"></a>Cb <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci</span>
<span id="cb112-44"><a href="anay_6800.html#cb112-44" aria-hidden="true" tabindex="-1"></a><span class="co">#Reference CO2 in umol mol-1</span></span>
<span id="cb112-45"><a href="anay_6800.html#cb112-45" aria-hidden="true" tabindex="-1"></a>Cr <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb</span>
<span id="cb112-46"><a href="anay_6800.html#cb112-46" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb112-47"><a href="anay_6800.html#cb112-47" aria-hidden="true" tabindex="-1"></a><span class="co">#根据Cc浓度的个数，构造向量</span></span>
<span id="cb112-48"><a href="anay_6800.html#cb112-48" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb112-49"><a href="anay_6800.html#cb112-49" aria-hidden="true" tabindex="-1"></a><span class="co">#也就是以秒计算的cr与时间的模型</span></span>
<span id="cb112-50"><a href="anay_6800.html#cb112-50" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr <span class="sc">~</span> Counter)</span>
<span id="cb112-51"><a href="anay_6800.html#cb112-51" aria-hidden="true" tabindex="-1"></a><span class="co">#转化为分钟的cr的斜率</span></span>
<span id="cb112-52"><a href="anay_6800.html#cb112-52" aria-hidden="true" tabindex="-1"></a>RateCr <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span></span>
<span id="cb112-53"><a href="anay_6800.html#cb112-53" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb112-54"><a href="anay_6800.html#cb112-54" aria-hidden="true" tabindex="-1"></a><span class="co">#转换为分钟的边界层导度斜率</span></span>
<span id="cb112-55"><a href="anay_6800.html#cb112-55" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb <span class="sc">~</span> Counter)</span>
<span id="cb112-56"><a href="anay_6800.html#cb112-56" aria-hidden="true" tabindex="-1"></a>RateCb <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span></span>
<span id="cb112-57"><a href="anay_6800.html#cb112-57" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb112-58"><a href="anay_6800.html#cb112-58" aria-hidden="true" tabindex="-1"></a><span class="co">#转换为分钟的ci的斜率</span></span>
<span id="cb112-59"><a href="anay_6800.html#cb112-59" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci <span class="sc">~</span> Counter)</span>
<span id="cb112-60"><a href="anay_6800.html#cb112-60" aria-hidden="true" tabindex="-1"></a>RateCi <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span></span>
<span id="cb112-61"><a href="anay_6800.html#cb112-61" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb112-62"><a href="anay_6800.html#cb112-62" aria-hidden="true" tabindex="-1"></a><span class="co">#转换为分钟的Cc的斜率</span></span>
<span id="cb112-63"><a href="anay_6800.html#cb112-63" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb112-64"><a href="anay_6800.html#cb112-64" aria-hidden="true" tabindex="-1"></a>RateCc <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> </span></code></pre></div>
</div>
</div>
<div id="code-photoresp" class="section level3" number="10.7.2">
<h3><span class="header-section-number">10.7.2</span> 光呼吸滞后性代码</h3>
<p>下面代码的目的是为得到 ACi 响应曲线受光呼吸延迟的影响，尤其是在临近补偿点时。</p>
<p><strong>延迟模块</strong></p>
<div class="sourceCode" id="cb113"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb113-1"><a href="anay_6800.html#cb113-1" aria-hidden="true" tabindex="-1"></a><span class="co">#假定有15s延迟时的数据，即相比上面构造的Cc数据减少15个点</span></span>
<span id="cb113-2"><a href="anay_6800.html#cb113-2" aria-hidden="true" tabindex="-1"></a>Cc15 <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>((<span class="fu">min</span>(Cc) <span class="sc">+</span> <span class="dv">15</span>)<span class="sc">:</span><span class="fu">max</span>(Cc), <span class="fu">rep</span>(<span class="fu">max</span>(Cc), <span class="dv">15</span>)))</span>
<span id="cb113-3"><a href="anay_6800.html#cb113-3" aria-hidden="true" tabindex="-1"></a>vo15 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc15 <span class="sc">/</span> Kc))</span>
<span id="cb113-4"><a href="anay_6800.html#cb113-4" aria-hidden="true" tabindex="-1"></a>A15 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo15 <span class="sc">-</span> R</span>
<span id="cb113-5"><a href="anay_6800.html#cb113-5" aria-hidden="true" tabindex="-1"></a>Aapparent15 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo15</span>
<span id="cb113-6"><a href="anay_6800.html#cb113-6" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb113-7"><a href="anay_6800.html#cb113-7" aria-hidden="true" tabindex="-1"></a><span class="co">#30 s 延迟数据</span></span>
<span id="cb113-8"><a href="anay_6800.html#cb113-8" aria-hidden="true" tabindex="-1"></a>Cc30 <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>((<span class="fu">min</span>(Cc) <span class="sc">+</span> <span class="dv">30</span>)<span class="sc">:</span><span class="fu">max</span>(Cc), <span class="fu">rep</span>(<span class="fu">max</span>(Cc), <span class="dv">30</span>)))</span>
<span id="cb113-9"><a href="anay_6800.html#cb113-9" aria-hidden="true" tabindex="-1"></a>vo30 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc30 <span class="sc">/</span> Kc))</span>
<span id="cb113-10"><a href="anay_6800.html#cb113-10" aria-hidden="true" tabindex="-1"></a>A30 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo30 <span class="sc">-</span> R</span>
<span id="cb113-11"><a href="anay_6800.html#cb113-11" aria-hidden="true" tabindex="-1"></a>Aapparent30 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo30</span>
<span id="cb113-12"><a href="anay_6800.html#cb113-12" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb113-13"><a href="anay_6800.html#cb113-13" aria-hidden="true" tabindex="-1"></a><span class="co">#60s 延迟数据</span></span>
<span id="cb113-14"><a href="anay_6800.html#cb113-14" aria-hidden="true" tabindex="-1"></a>Cc60 <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>((<span class="fu">min</span>(Cc) <span class="sc">+</span> <span class="dv">60</span>)<span class="sc">:</span><span class="fu">max</span>(Cc), <span class="fu">rep</span>(<span class="fu">max</span>(Cc), <span class="dv">60</span>)))</span>
<span id="cb113-15"><a href="anay_6800.html#cb113-15" aria-hidden="true" tabindex="-1"></a>vo60 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc60 <span class="sc">/</span> Kc))</span>
<span id="cb113-16"><a href="anay_6800.html#cb113-16" aria-hidden="true" tabindex="-1"></a>A60 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo60 <span class="sc">-</span> R</span>
<span id="cb113-17"><a href="anay_6800.html#cb113-17" aria-hidden="true" tabindex="-1"></a>Aapparent60 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo60</span>
<span id="cb113-18"><a href="anay_6800.html#cb113-18" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb113-19"><a href="anay_6800.html#cb113-19" aria-hidden="true" tabindex="-1"></a><span class="co">#120s延迟数据</span></span>
<span id="cb113-20"><a href="anay_6800.html#cb113-20" aria-hidden="true" tabindex="-1"></a>Cc120 <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>((<span class="fu">min</span>(Cc) <span class="sc">+</span> <span class="dv">120</span>)<span class="sc">:</span><span class="fu">max</span>(Cc), <span class="fu">rep</span>(<span class="fu">max</span>(Cc), <span class="dv">120</span>)))</span>
<span id="cb113-21"><a href="anay_6800.html#cb113-21" aria-hidden="true" tabindex="-1"></a>vo120 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc120 <span class="sc">/</span> Kc))</span>
<span id="cb113-22"><a href="anay_6800.html#cb113-22" aria-hidden="true" tabindex="-1"></a>A120 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo120 <span class="sc">-</span> R</span>
<span id="cb113-23"><a href="anay_6800.html#cb113-23" aria-hidden="true" tabindex="-1"></a>Aapparent120 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo120</span>
<span id="cb113-24"><a href="anay_6800.html#cb113-24" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb113-25"><a href="anay_6800.html#cb113-25" aria-hidden="true" tabindex="-1"></a><span class="co">#300s延迟数据</span></span>
<span id="cb113-26"><a href="anay_6800.html#cb113-26" aria-hidden="true" tabindex="-1"></a>Cc300 <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>((<span class="fu">min</span>(Cc) <span class="sc">+</span> <span class="dv">300</span>)<span class="sc">:</span><span class="fu">max</span>(Cc), <span class="fu">rep</span>(<span class="fu">max</span>(Cc), <span class="dv">300</span>)))</span>
<span id="cb113-27"><a href="anay_6800.html#cb113-27" aria-hidden="true" tabindex="-1"></a>vo300 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc300 <span class="sc">/</span> Kc))</span>
<span id="cb113-28"><a href="anay_6800.html#cb113-28" aria-hidden="true" tabindex="-1"></a>A300 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo120 <span class="sc">-</span> R</span>
<span id="cb113-29"><a href="anay_6800.html#cb113-29" aria-hidden="true" tabindex="-1"></a>Aapparent300 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo300 </span></code></pre></div>
</div>
<div id="multi4" class="section level3" number="10.7.3">
<h3><span class="header-section-number">10.7.3</span> 数据的构造</h3>
<p>下面的代码主要是将上文最终计算的数据构造数据集，并导出。</p>
<div class="sourceCode" id="cb114"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb114-1"><a href="anay_6800.html#cb114-1" aria-hidden="true" tabindex="-1"></a>Anet <span class="ot">&lt;-</span> <span class="fu">c</span>(A, A15, A30, A60, A120, A300)</span>
<span id="cb114-2"><a href="anay_6800.html#cb114-2" aria-hidden="true" tabindex="-1"></a>Aapp <span class="ot">&lt;-</span></span>
<span id="cb114-3"><a href="anay_6800.html#cb114-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(Aapparent,</span>
<span id="cb114-4"><a href="anay_6800.html#cb114-4" aria-hidden="true" tabindex="-1"></a>    Aapparent15,</span>
<span id="cb114-5"><a href="anay_6800.html#cb114-5" aria-hidden="true" tabindex="-1"></a>    Aapparent30,</span>
<span id="cb114-6"><a href="anay_6800.html#cb114-6" aria-hidden="true" tabindex="-1"></a>    Aapparent60,</span>
<span id="cb114-7"><a href="anay_6800.html#cb114-7" aria-hidden="true" tabindex="-1"></a>    Aapparent120,</span>
<span id="cb114-8"><a href="anay_6800.html#cb114-8" aria-hidden="true" tabindex="-1"></a>    Aapparent300)</span>
<span id="cb114-9"><a href="anay_6800.html#cb114-9" aria-hidden="true" tabindex="-1"></a>Ccfull <span class="ot">&lt;-</span> <span class="fu">rep</span>(Cc, <span class="dv">6</span>)</span>
<span id="cb114-10"><a href="anay_6800.html#cb114-10" aria-hidden="true" tabindex="-1"></a>Cifull <span class="ot">&lt;-</span> <span class="fu">rep</span>(Ci, <span class="dv">6</span>)</span>
<span id="cb114-11"><a href="anay_6800.html#cb114-11" aria-hidden="true" tabindex="-1"></a>Delay <span class="ot">&lt;-</span></span>
<span id="cb114-12"><a href="anay_6800.html#cb114-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb114-13"><a href="anay_6800.html#cb114-13" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;0&quot;</span>, <span class="fu">length</span>(A)),</span>
<span id="cb114-14"><a href="anay_6800.html#cb114-14" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;15&quot;</span>, <span class="fu">length</span>(A15)),</span>
<span id="cb114-15"><a href="anay_6800.html#cb114-15" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;30&quot;</span>, <span class="fu">length</span>(A30)),</span>
<span id="cb114-16"><a href="anay_6800.html#cb114-16" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;60&quot;</span>, <span class="fu">length</span>(A60)),</span>
<span id="cb114-17"><a href="anay_6800.html#cb114-17" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;120&quot;</span>, <span class="fu">length</span>(A120)),</span>
<span id="cb114-18"><a href="anay_6800.html#cb114-18" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;300&quot;</span>, <span class="fu">length</span>(A300))</span>
<span id="cb114-19"><a href="anay_6800.html#cb114-19" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb114-20"><a href="anay_6800.html#cb114-20" aria-hidden="true" tabindex="-1"></a>PRdata <span class="ot">&lt;-</span> <span class="fu">as.data.frame</span>(<span class="fu">cbind</span>(Anet, Aapp, Ccfull, Cifull, Delay))</span>
<span id="cb114-21"><a href="anay_6800.html#cb114-21" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(PRdata, <span class="st">&quot;./data/PRdata.csv&quot;</span>)</span></code></pre></div>
</div>
<div id="multi5" class="section level3" number="10.7.4">
<h3><span class="header-section-number">10.7.4</span> 光呼吸滞后性作图</h3>
<p>下面的代码是将光呼吸的数据进行作图。</p>
<div class="sourceCode" id="cb115"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb115-1"><a href="anay_6800.html#cb115-1" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/PRdata.csv&quot;</span>)</span>
<span id="cb115-2"><a href="anay_6800.html#cb115-2" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Ccfull <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(data<span class="sc">$</span>Ccfull)</span>
<span id="cb115-3"><a href="anay_6800.html#cb115-3" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Delay <span class="ot">&lt;-</span> <span class="fu">as.factor</span>(data<span class="sc">$</span>Delay)</span>
<span id="cb115-4"><a href="anay_6800.html#cb115-4" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb115-5"><a href="anay_6800.html#cb115-5" aria-hidden="true" tabindex="-1"></a><span class="co"># 净光合速率与Cc作图</span></span>
<span id="cb115-6"><a href="anay_6800.html#cb115-6" aria-hidden="true" tabindex="-1"></a>AnetCc <span class="ot">&lt;-</span> <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Ccfull, <span class="at">y =</span> Anet, <span class="at">colour =</span> Delay)) <span class="sc">+</span></span>
<span id="cb115-7"><a href="anay_6800.html#cb115-7" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb115-8"><a href="anay_6800.html#cb115-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[c] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb115-9"><a href="anay_6800.html#cb115-9" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb115-10"><a href="anay_6800.html#cb115-10" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb115-11"><a href="anay_6800.html#cb115-11" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb115-12"><a href="anay_6800.html#cb115-12" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb115-13"><a href="anay_6800.html#cb115-13" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb115-14"><a href="anay_6800.html#cb115-14" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb115-15"><a href="anay_6800.html#cb115-15" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb115-16"><a href="anay_6800.html#cb115-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Delay (s)&#39;</span>) <span class="sc">+</span></span>
<span id="cb115-17"><a href="anay_6800.html#cb115-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">100</span>),</span>
<span id="cb115-18"><a href="anay_6800.html#cb115-18" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">40</span>, <span class="dv">55</span>, <span class="dv">70</span>, <span class="dv">85</span>, <span class="dv">100</span>)) <span class="sc">+</span></span>
<span id="cb115-19"><a href="anay_6800.html#cb115-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb115-20"><a href="anay_6800.html#cb115-20" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb115-21"><a href="anay_6800.html#cb115-21" aria-hidden="true" tabindex="-1"></a>  <span class="co">#补偿点的参考线</span></span>
<span id="cb115-22"><a href="anay_6800.html#cb115-22" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb115-23"><a href="anay_6800.html#cb115-23" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb115-24"><a href="anay_6800.html#cb115-24" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb115-25"><a href="anay_6800.html#cb115-25" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb115-26"><a href="anay_6800.html#cb115-26" aria-hidden="true" tabindex="-1"></a>AnetCc</span></code></pre></div>
<pre><code>## Warning: Removed 1848 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:anetcc"></span>
<img src="bookdown_files/figure-html/anetcc-1.png" alt="Anet VS. Cc" width="672" />
<p class="caption">
图 10.1: Anet VS. Cc
</p>
</div>
<div class="sourceCode" id="cb117"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb117-1"><a href="anay_6800.html#cb117-1" aria-hidden="true" tabindex="-1"></a><span class="co">#净光合速率与Ci作图</span></span>
<span id="cb117-2"><a href="anay_6800.html#cb117-2" aria-hidden="true" tabindex="-1"></a>AnetCi <span class="ot">&lt;-</span> <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Cifull, <span class="at">y =</span> Anet, <span class="at">colour =</span> Delay)) <span class="sc">+</span></span>
<span id="cb117-3"><a href="anay_6800.html#cb117-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb117-4"><a href="anay_6800.html#cb117-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb117-5"><a href="anay_6800.html#cb117-5" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb117-6"><a href="anay_6800.html#cb117-6" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb117-7"><a href="anay_6800.html#cb117-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb117-8"><a href="anay_6800.html#cb117-8" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb117-9"><a href="anay_6800.html#cb117-9" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb117-10"><a href="anay_6800.html#cb117-10" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb117-11"><a href="anay_6800.html#cb117-11" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb117-12"><a href="anay_6800.html#cb117-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Delay (s)&#39;</span>) <span class="sc">+</span></span>
<span id="cb117-13"><a href="anay_6800.html#cb117-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">100</span>),</span>
<span id="cb117-14"><a href="anay_6800.html#cb117-14" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">40</span>, <span class="dv">55</span>, <span class="dv">70</span>, <span class="dv">85</span>, <span class="dv">100</span>)) <span class="sc">+</span></span>
<span id="cb117-15"><a href="anay_6800.html#cb117-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb117-16"><a href="anay_6800.html#cb117-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb117-17"><a href="anay_6800.html#cb117-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb117-18"><a href="anay_6800.html#cb117-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb117-19"><a href="anay_6800.html#cb117-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb117-20"><a href="anay_6800.html#cb117-20" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb117-21"><a href="anay_6800.html#cb117-21" aria-hidden="true" tabindex="-1"></a>AnetCi</span></code></pre></div>
<pre><code>## Warning: Removed 1878 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:anetci"></span>
<img src="bookdown_files/figure-html/anetci-1.png" alt="Anet VS. Ci" width="672" />
<p class="caption">
图 10.2: Anet VS. Ci
</p>
</div>
<div class="sourceCode" id="cb119"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb119-1"><a href="anay_6800.html#cb119-1" aria-hidden="true" tabindex="-1"></a><span class="co">#表观光合与Cc作图</span></span>
<span id="cb119-2"><a href="anay_6800.html#cb119-2" aria-hidden="true" tabindex="-1"></a>AappCc <span class="ot">&lt;-</span> <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Ccfull, <span class="at">y =</span> Aapp, <span class="at">colour =</span> Delay)) <span class="sc">+</span></span>
<span id="cb119-3"><a href="anay_6800.html#cb119-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb119-4"><a href="anay_6800.html#cb119-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[c] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb119-5"><a href="anay_6800.html#cb119-5" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb119-6"><a href="anay_6800.html#cb119-6" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb119-7"><a href="anay_6800.html#cb119-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[apparent] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb119-8"><a href="anay_6800.html#cb119-8" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb119-9"><a href="anay_6800.html#cb119-9" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb119-10"><a href="anay_6800.html#cb119-10" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb119-11"><a href="anay_6800.html#cb119-11" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb119-12"><a href="anay_6800.html#cb119-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Delay (s)&#39;</span>) <span class="sc">+</span></span>
<span id="cb119-13"><a href="anay_6800.html#cb119-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">75</span>),</span>
<span id="cb119-14"><a href="anay_6800.html#cb119-14" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">35</span>, <span class="dv">45</span>, <span class="dv">55</span>, <span class="dv">65</span>, <span class="dv">75</span>)) <span class="sc">+</span></span>
<span id="cb119-15"><a href="anay_6800.html#cb119-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb119-16"><a href="anay_6800.html#cb119-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb119-17"><a href="anay_6800.html#cb119-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb119-18"><a href="anay_6800.html#cb119-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb119-19"><a href="anay_6800.html#cb119-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb119-20"><a href="anay_6800.html#cb119-20" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb119-21"><a href="anay_6800.html#cb119-21" aria-hidden="true" tabindex="-1"></a>AappCc</span></code></pre></div>
<pre><code>## Warning: Removed 1959 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:aappcc"></span>
<img src="bookdown_files/figure-html/aappcc-1.png" alt="Aapparent VS. Cc" width="672" />
<p class="caption">
图 10.3: Aapparent VS. Cc
</p>
</div>
<div class="sourceCode" id="cb121"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb121-1"><a href="anay_6800.html#cb121-1" aria-hidden="true" tabindex="-1"></a><span class="co">#表观与Ci作图</span></span>
<span id="cb121-2"><a href="anay_6800.html#cb121-2" aria-hidden="true" tabindex="-1"></a>AappCi <span class="ot">&lt;-</span> <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Cifull, <span class="at">y =</span> Aapp, <span class="at">colour =</span> Delay)) <span class="sc">+</span></span>
<span id="cb121-3"><a href="anay_6800.html#cb121-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb121-4"><a href="anay_6800.html#cb121-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb121-5"><a href="anay_6800.html#cb121-5" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb121-6"><a href="anay_6800.html#cb121-6" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb121-7"><a href="anay_6800.html#cb121-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[apparent] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb121-8"><a href="anay_6800.html#cb121-8" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb121-9"><a href="anay_6800.html#cb121-9" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb121-10"><a href="anay_6800.html#cb121-10" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb121-11"><a href="anay_6800.html#cb121-11" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb121-12"><a href="anay_6800.html#cb121-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Delay (s)&#39;</span>) <span class="sc">+</span></span>
<span id="cb121-13"><a href="anay_6800.html#cb121-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">75</span>),</span>
<span id="cb121-14"><a href="anay_6800.html#cb121-14" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">35</span>, <span class="dv">45</span>, <span class="dv">55</span>, <span class="dv">65</span>, <span class="dv">75</span>)) <span class="sc">+</span></span>
<span id="cb121-15"><a href="anay_6800.html#cb121-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb121-16"><a href="anay_6800.html#cb121-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb121-17"><a href="anay_6800.html#cb121-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb121-18"><a href="anay_6800.html#cb121-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb121-19"><a href="anay_6800.html#cb121-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb121-20"><a href="anay_6800.html#cb121-20" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb121-21"><a href="anay_6800.html#cb121-21" aria-hidden="true" tabindex="-1"></a>AappCi</span></code></pre></div>
<pre><code>## Warning: Removed 2003 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:aappci"></span>
<img src="bookdown_files/figure-html/aappci-1.png" alt="Aapparent VS. Ci" width="672" />
<p class="caption">
图 10.4: Aapparent VS. Ci
</p>
</div>
</div>
<div id="multi6" class="section level3" number="10.7.5">
<h3><span class="header-section-number">10.7.5</span> 补偿点计算</h3>
<p>计算不同的光呼吸时间延迟下的补偿点（基于Ci）：</p>
<div class="sourceCode" id="cb123"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb123-1"><a href="anay_6800.html#cb123-1" aria-hidden="true" tabindex="-1"></a><span class="co">#对于基于Ci的数据，仅采用ci&lt;100时的数据</span></span>
<span id="cb123-2"><a href="anay_6800.html#cb123-2" aria-hidden="true" tabindex="-1"></a>dataCi <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Cifull <span class="sc">&lt;</span> <span class="dv">100</span>,]</span>
<span id="cb123-3"><a href="anay_6800.html#cb123-3" aria-hidden="true" tabindex="-1"></a>dataCi0 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;0&quot;</span>,]</span>
<span id="cb123-4"><a href="anay_6800.html#cb123-4" aria-hidden="true" tabindex="-1"></a>dataCi15 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;15&quot;</span>,]</span>
<span id="cb123-5"><a href="anay_6800.html#cb123-5" aria-hidden="true" tabindex="-1"></a>dataCi30 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;30&quot;</span>,]</span>
<span id="cb123-6"><a href="anay_6800.html#cb123-6" aria-hidden="true" tabindex="-1"></a>dataCi60 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;60&quot;</span>,]</span>
<span id="cb123-7"><a href="anay_6800.html#cb123-7" aria-hidden="true" tabindex="-1"></a>dataCi120 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;120&quot;</span>,]</span>
<span id="cb123-8"><a href="anay_6800.html#cb123-8" aria-hidden="true" tabindex="-1"></a>dataCi300 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;300&quot;</span>,]</span>
<span id="cb123-9"><a href="anay_6800.html#cb123-9" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb123-10"><a href="anay_6800.html#cb123-10" aria-hidden="true" tabindex="-1"></a><span class="co">#光呼吸无延迟时的计算，线性拟合</span></span>
<span id="cb123-11"><a href="anay_6800.html#cb123-11" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi0<span class="sc">$</span>Anet <span class="sc">~</span> dataCi0<span class="sc">$</span>Cifull)</span>
<span id="cb123-12"><a href="anay_6800.html#cb123-12" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi0$Anet ~ dataCi0$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13165 -0.04518  0.01711  0.05408  0.06699 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)    -7.2248105  0.0199353  -362.4   &lt;2e-16 ***
## dataCi0$Cifull  0.1228632  0.0003089   397.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06081 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.582e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb125"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb125-1"><a href="anay_6800.html#cb125-1" aria-hidden="true" tabindex="-1"></a><span class="co">#补偿点为截距比斜率（纵坐标为零）</span></span>
<span id="cb125-2"><a href="anay_6800.html#cb125-2" aria-hidden="true" tabindex="-1"></a>Gamma0 <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb125-3"><a href="anay_6800.html#cb125-3" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb125-4"><a href="anay_6800.html#cb125-4" aria-hidden="true" tabindex="-1"></a><span class="co">#光呼吸延时15s</span></span>
<span id="cb125-5"><a href="anay_6800.html#cb125-5" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi15<span class="sc">$</span>Anet <span class="sc">~</span> dataCi15<span class="sc">$</span>Cifull)</span>
<span id="cb125-6"><a href="anay_6800.html#cb125-6" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi15$Anet ~ dataCi15$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13119 -0.04502  0.01705  0.05389  0.06676 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -7.0873326  0.0198665  -356.7   &lt;2e-16 ***
## dataCi15$Cifull  0.1225900  0.0003078   398.3   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0606 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.586e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb127"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb127-1"><a href="anay_6800.html#cb127-1" aria-hidden="true" tabindex="-1"></a>Gamma15 <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb127-2"><a href="anay_6800.html#cb127-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb127-3"><a href="anay_6800.html#cb127-3" aria-hidden="true" tabindex="-1"></a><span class="co">#光呼吸延时30s</span></span>
<span id="cb127-4"><a href="anay_6800.html#cb127-4" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi30<span class="sc">$</span>Anet <span class="sc">~</span> dataCi30<span class="sc">$</span>Cifull)</span>
<span id="cb127-5"><a href="anay_6800.html#cb127-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi30$Anet ~ dataCi30$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13076 -0.04488  0.01699  0.05372  0.06654 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -6.9553180  0.0198028  -351.2   &lt;2e-16 ***
## dataCi30$Cifull  0.1223321  0.0003068   398.7   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0604 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.59e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb129"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb129-1"><a href="anay_6800.html#cb129-1" aria-hidden="true" tabindex="-1"></a>Gamma30 <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb129-2"><a href="anay_6800.html#cb129-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb129-3"><a href="anay_6800.html#cb129-3" aria-hidden="true" tabindex="-1"></a><span class="co">#光呼吸延时60s</span></span>
<span id="cb129-4"><a href="anay_6800.html#cb129-4" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi60<span class="sc">$</span>Anet <span class="sc">~</span> dataCi60<span class="sc">$</span>Cifull)</span>
<span id="cb129-5"><a href="anay_6800.html#cb129-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi60$Anet ~ dataCi60$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13001 -0.04462  0.01690  0.05341  0.06616 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -6.706429   0.019689  -340.6   &lt;2e-16 ***
## dataCi60$Cifull  0.121858   0.000305   399.5   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06006 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.596e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb131"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb131-1"><a href="anay_6800.html#cb131-1" aria-hidden="true" tabindex="-1"></a>Gamma60 <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb131-2"><a href="anay_6800.html#cb131-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb131-3"><a href="anay_6800.html#cb131-3" aria-hidden="true" tabindex="-1"></a><span class="co">#光呼吸延时120s</span></span>
<span id="cb131-4"><a href="anay_6800.html#cb131-4" aria-hidden="true" tabindex="-1"></a>m5 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi120<span class="sc">$</span>Anet <span class="sc">~</span> dataCi120<span class="sc">$</span>Cifull)</span>
<span id="cb131-5"><a href="anay_6800.html#cb131-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m5)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi120$Anet ~ dataCi120$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12879 -0.04421  0.01673  0.05292  0.06555 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -6.2616980  0.0195062  -321.0   &lt;2e-16 ***
## dataCi120$Cifull  0.1210486  0.0003022   400.5   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0595 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.604e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb133"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb133-1"><a href="anay_6800.html#cb133-1" aria-hidden="true" tabindex="-1"></a>Gamma120 <span class="ot">&lt;-</span> <span class="sc">-</span>m5<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m5<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb133-2"><a href="anay_6800.html#cb133-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb133-3"><a href="anay_6800.html#cb133-3" aria-hidden="true" tabindex="-1"></a><span class="co">#光呼吸延时300s</span></span>
<span id="cb133-4"><a href="anay_6800.html#cb133-4" aria-hidden="true" tabindex="-1"></a>m6 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi300<span class="sc">$</span>Anet <span class="sc">~</span> dataCi300<span class="sc">$</span>Cifull)</span>
<span id="cb133-5"><a href="anay_6800.html#cb133-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m6)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi300$Anet ~ dataCi300$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12879 -0.04421  0.01673  0.05292  0.06555 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -6.2616980  0.0195062  -321.0   &lt;2e-16 ***
## dataCi300$Cifull  0.1210486  0.0003022   400.5   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0595 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.604e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb135"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb135-1"><a href="anay_6800.html#cb135-1" aria-hidden="true" tabindex="-1"></a>Gamma300 <span class="ot">&lt;-</span> <span class="sc">-</span>m6<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m6<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span></code></pre></div>
<p>构造数据并作图</p>
<div class="sourceCode" id="cb136"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb136-1"><a href="anay_6800.html#cb136-1" aria-hidden="true" tabindex="-1"></a>GammaCi <span class="ot">&lt;-</span> <span class="fu">c</span>(Gamma0, Gamma15, Gamma30, Gamma60, Gamma120, Gamma300)</span>
<span id="cb136-2"><a href="anay_6800.html#cb136-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb136-3"><a href="anay_6800.html#cb136-3" aria-hidden="true" tabindex="-1"></a>ints <span class="ot">&lt;-</span></span>
<span id="cb136-4"><a href="anay_6800.html#cb136-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb136-5"><a href="anay_6800.html#cb136-5" aria-hidden="true" tabindex="-1"></a>    m1<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb136-6"><a href="anay_6800.html#cb136-6" aria-hidden="true" tabindex="-1"></a>    m2<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb136-7"><a href="anay_6800.html#cb136-7" aria-hidden="true" tabindex="-1"></a>    m3<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb136-8"><a href="anay_6800.html#cb136-8" aria-hidden="true" tabindex="-1"></a>    m4<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb136-9"><a href="anay_6800.html#cb136-9" aria-hidden="true" tabindex="-1"></a>    m5<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb136-10"><a href="anay_6800.html#cb136-10" aria-hidden="true" tabindex="-1"></a>    m6<span class="sc">$</span>coefficients[<span class="dv">1</span>]</span>
<span id="cb136-11"><a href="anay_6800.html#cb136-11" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb136-12"><a href="anay_6800.html#cb136-12" aria-hidden="true" tabindex="-1"></a>slps <span class="ot">&lt;-</span></span>
<span id="cb136-13"><a href="anay_6800.html#cb136-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb136-14"><a href="anay_6800.html#cb136-14" aria-hidden="true" tabindex="-1"></a>    <span class="dv">0</span>,</span>
<span id="cb136-15"><a href="anay_6800.html#cb136-15" aria-hidden="true" tabindex="-1"></a>    m2<span class="sc">$</span>coefficients[<span class="dv">2</span>] <span class="sc">-</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>],</span>
<span id="cb136-16"><a href="anay_6800.html#cb136-16" aria-hidden="true" tabindex="-1"></a>    m3<span class="sc">$</span>coefficients[<span class="dv">2</span>] <span class="sc">-</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>],</span>
<span id="cb136-17"><a href="anay_6800.html#cb136-17" aria-hidden="true" tabindex="-1"></a>    m4<span class="sc">$</span>coefficients[<span class="dv">2</span>] <span class="sc">-</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>],</span>
<span id="cb136-18"><a href="anay_6800.html#cb136-18" aria-hidden="true" tabindex="-1"></a>    m5<span class="sc">$</span>coefficients[<span class="dv">2</span>] <span class="sc">-</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>],</span>
<span id="cb136-19"><a href="anay_6800.html#cb136-19" aria-hidden="true" tabindex="-1"></a>    m6<span class="sc">$</span>coefficients[<span class="dv">2</span>] <span class="sc">-</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb136-20"><a href="anay_6800.html#cb136-20" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb136-21"><a href="anay_6800.html#cb136-21" aria-hidden="true" tabindex="-1"></a>dels <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="dv">0</span>, <span class="dv">15</span>, <span class="dv">30</span>, <span class="dv">60</span>, <span class="dv">120</span>, <span class="dv">300</span>)</span>
<span id="cb136-22"><a href="anay_6800.html#cb136-22" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(<span class="fu">lm</span>(ints <span class="sc">~</span> dels))</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = ints ~ dels)
## 
## Residuals:
##   (Intercept) (Intercept).1 (Intercept).2 (Intercept).3 (Intercept).4 
##      -0.20351      -0.11262      -0.02719       0.12853       0.38691 
## (Intercept).5 
##      -0.17212 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept) -7.0213001  0.1343090 -52.277 8.01e-07 ***
## dels         0.0031057  0.0009959   3.119   0.0356 *  
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.2503 on 4 degrees of freedom
## Multiple R-squared:  0.7086, Adjusted R-squared:  0.6357 
## F-statistic: 9.725 on 1 and 4 DF,  p-value: 0.03558</code></pre>
<div class="sourceCode" id="cb138"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb138-1"><a href="anay_6800.html#cb138-1" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(ints <span class="sc">~</span> dels)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:intdelay"></span>
<img src="bookdown_files/figure-html/intdelay-1.png" alt="基于 Ci 的不同延时下的截距" width="672" />
<p class="caption">
图 10.5: 基于 Ci 的不同延时下的截距
</p>
</div>
<div class="sourceCode" id="cb139"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb139-1"><a href="anay_6800.html#cb139-1" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(slps <span class="sc">~</span> dels)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:intslps"></span>
<img src="bookdown_files/figure-html/intslps-1.png" alt="基于 Ci 的不同延时下的斜率变化" width="672" />
<p class="caption">
图 10.6: 基于 Ci 的不同延时下的斜率变化
</p>
</div>
<div class="sourceCode" id="cb140"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb140-1"><a href="anay_6800.html#cb140-1" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(<span class="fu">lm</span>(slps <span class="sc">~</span> dels <span class="sc">-</span> <span class="dv">1</span>))</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = slps ~ dels - 1)
## 
## Residuals:
##                   dataCi15$Cifull  dataCi30$Cifull  dataCi60$Cifull 
##       -2.711e-19       -1.574e-04       -2.995e-04       -5.424e-04 
## dataCi120$Cifull dataCi300$Cifull 
##       -8.881e-04        5.015e-04 
## 
## Coefficients:
##       Estimate Std. Error t value Pr(&gt;|t|)   
## dels -7.72e-06   1.63e-06  -4.738  0.00516 **
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0005383 on 5 degrees of freedom
## Multiple R-squared:  0.8178, Adjusted R-squared:  0.7814 
## F-statistic: 22.44 on 1 and 5 DF,  p-value: 0.005161</code></pre>
<p>基于 Cc 的补偿点计算结果:</p>
<div class="sourceCode" id="cb142"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb142-1"><a href="anay_6800.html#cb142-1" aria-hidden="true" tabindex="-1"></a><span class="co"># 仅使用 Cc &lt; 75的数据点拟合，过程同ci</span></span>
<span id="cb142-2"><a href="anay_6800.html#cb142-2" aria-hidden="true" tabindex="-1"></a>dataCc <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Ccfull <span class="sc">&lt;</span> <span class="dv">75</span>, ]</span>
<span id="cb142-3"><a href="anay_6800.html#cb142-3" aria-hidden="true" tabindex="-1"></a>dataCc0 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;0&quot;</span>, ]</span>
<span id="cb142-4"><a href="anay_6800.html#cb142-4" aria-hidden="true" tabindex="-1"></a>dataCc15 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;15&quot;</span>, ]</span>
<span id="cb142-5"><a href="anay_6800.html#cb142-5" aria-hidden="true" tabindex="-1"></a>dataCc30 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;30&quot;</span>, ]</span>
<span id="cb142-6"><a href="anay_6800.html#cb142-6" aria-hidden="true" tabindex="-1"></a>dataCc60 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;60&quot;</span>, ]</span>
<span id="cb142-7"><a href="anay_6800.html#cb142-7" aria-hidden="true" tabindex="-1"></a>dataCc120 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;120&quot;</span>, ]</span>
<span id="cb142-8"><a href="anay_6800.html#cb142-8" aria-hidden="true" tabindex="-1"></a>dataCc300 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;300&quot;</span>, ]</span>
<span id="cb142-9"><a href="anay_6800.html#cb142-9" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb142-10"><a href="anay_6800.html#cb142-10" aria-hidden="true" tabindex="-1"></a><span class="co"># 无延迟数据</span></span>
<span id="cb142-11"><a href="anay_6800.html#cb142-11" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc0<span class="sc">$</span>Anet <span class="sc">~</span> dataCc0<span class="sc">$</span>Ccfull)</span>
<span id="cb142-12"><a href="anay_6800.html#cb142-12" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc0$Anet ~ dataCc0$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075648 -0.025444  0.009857  0.031706  0.039431 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)    -8.4062011  0.0181852  -462.3   &lt;2e-16 ***
## dataCc0$Ccfull  0.1438710  0.0003527   407.9   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03599 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.664e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb144"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb144-1"><a href="anay_6800.html#cb144-1" aria-hidden="true" tabindex="-1"></a>Gamma0 <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb144-2"><a href="anay_6800.html#cb144-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb144-3"><a href="anay_6800.html#cb144-3" aria-hidden="true" tabindex="-1"></a><span class="co">#延时15s数据</span></span>
<span id="cb144-4"><a href="anay_6800.html#cb144-4" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc15<span class="sc">$</span>Anet <span class="sc">~</span> dataCc15<span class="sc">$</span>Ccfull)</span>
<span id="cb144-5"><a href="anay_6800.html#cb144-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc15$Anet ~ dataCc15$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075393 -0.025359  0.009824  0.031599  0.039299 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -8.2659145  0.0181243  -456.1   &lt;2e-16 ***
## dataCc15$Ccfull  0.1435470  0.0003515   408.4   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03587 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.668e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb146"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb146-1"><a href="anay_6800.html#cb146-1" aria-hidden="true" tabindex="-1"></a>Gamma15 <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb146-2"><a href="anay_6800.html#cb146-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb146-3"><a href="anay_6800.html#cb146-3" aria-hidden="true" tabindex="-1"></a><span class="co">#延时30s数据</span></span>
<span id="cb146-4"><a href="anay_6800.html#cb146-4" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc30<span class="sc">$</span>Anet <span class="sc">~</span> dataCc30<span class="sc">$</span>Ccfull)</span>
<span id="cb146-5"><a href="anay_6800.html#cb146-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc30$Anet ~ dataCc30$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075158 -0.025280  0.009794  0.031501  0.039177 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -8.1312578  0.0180681  -450.0   &lt;2e-16 ***
## dataCc30$Ccfull  0.1432414  0.0003504   408.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03576 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.671e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb148"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb148-1"><a href="anay_6800.html#cb148-1" aria-hidden="true" tabindex="-1"></a>Gamma30 <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb148-2"><a href="anay_6800.html#cb148-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb148-3"><a href="anay_6800.html#cb148-3" aria-hidden="true" tabindex="-1"></a><span class="co">#延时60s数据</span></span>
<span id="cb148-4"><a href="anay_6800.html#cb148-4" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc60<span class="sc">$</span>Anet <span class="sc">~</span> dataCc60<span class="sc">$</span>Ccfull)</span>
<span id="cb148-5"><a href="anay_6800.html#cb148-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc60$Anet ~ dataCc60$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074737 -0.025139  0.009739  0.031325  0.038959 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -7.8775340  0.0179675  -438.4   &lt;2e-16 ***
## dataCc60$Ccfull  0.1426797  0.0003485   409.4   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03556 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.676e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb150"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb150-1"><a href="anay_6800.html#cb150-1" aria-hidden="true" tabindex="-1"></a>Gamma60 <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb150-2"><a href="anay_6800.html#cb150-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb150-3"><a href="anay_6800.html#cb150-3" aria-hidden="true" tabindex="-1"></a><span class="co">#延时120s数据</span></span>
<span id="cb150-4"><a href="anay_6800.html#cb150-4" aria-hidden="true" tabindex="-1"></a>m5 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc120<span class="sc">$</span>Anet <span class="sc">~</span> dataCc120<span class="sc">$</span>Ccfull)</span>
<span id="cb150-5"><a href="anay_6800.html#cb150-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m5)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc120$Anet ~ dataCc120$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074060 -0.024912  0.009651  0.031042  0.038607 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -7.4246412  0.0178052  -417.0   &lt;2e-16 ***
## dataCc120$Ccfull  0.1417238  0.0003453   410.4   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03524 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.684e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb152"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb152-1"><a href="anay_6800.html#cb152-1" aria-hidden="true" tabindex="-1"></a>Gamma120 <span class="ot">&lt;-</span> <span class="sc">-</span>m5<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m5<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb152-2"><a href="anay_6800.html#cb152-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb152-3"><a href="anay_6800.html#cb152-3" aria-hidden="true" tabindex="-1"></a><span class="co">#延时300s数据</span></span>
<span id="cb152-4"><a href="anay_6800.html#cb152-4" aria-hidden="true" tabindex="-1"></a>m6 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc300<span class="sc">$</span>Anet <span class="sc">~</span> dataCc300<span class="sc">$</span>Ccfull)</span>
<span id="cb152-5"><a href="anay_6800.html#cb152-5" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m6)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc300$Anet ~ dataCc300$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074060 -0.024912  0.009651  0.031042  0.038607 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -7.4246412  0.0178052  -417.0   &lt;2e-16 ***
## dataCc300$Ccfull  0.1417238  0.0003453   410.4   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03524 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.684e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb154"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb154-1"><a href="anay_6800.html#cb154-1" aria-hidden="true" tabindex="-1"></a>Gamma300 <span class="ot">&lt;-</span> <span class="sc">-</span>m6<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m6<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span></code></pre></div>
<div class="sourceCode" id="cb155"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb155-1"><a href="anay_6800.html#cb155-1" aria-hidden="true" tabindex="-1"></a>GammaCc <span class="ot">&lt;-</span> <span class="fu">c</span>(Gamma0, Gamma15, Gamma30, Gamma60, Gamma120, Gamma300)</span>
<span id="cb155-2"><a href="anay_6800.html#cb155-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb155-3"><a href="anay_6800.html#cb155-3" aria-hidden="true" tabindex="-1"></a>ints <span class="ot">&lt;-</span></span>
<span id="cb155-4"><a href="anay_6800.html#cb155-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb155-5"><a href="anay_6800.html#cb155-5" aria-hidden="true" tabindex="-1"></a>    m1<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb155-6"><a href="anay_6800.html#cb155-6" aria-hidden="true" tabindex="-1"></a>    m2<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb155-7"><a href="anay_6800.html#cb155-7" aria-hidden="true" tabindex="-1"></a>    m3<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb155-8"><a href="anay_6800.html#cb155-8" aria-hidden="true" tabindex="-1"></a>    m4<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb155-9"><a href="anay_6800.html#cb155-9" aria-hidden="true" tabindex="-1"></a>    m5<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb155-10"><a href="anay_6800.html#cb155-10" aria-hidden="true" tabindex="-1"></a>    m6<span class="sc">$</span>coefficients[<span class="dv">1</span>]</span>
<span id="cb155-11"><a href="anay_6800.html#cb155-11" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb155-12"><a href="anay_6800.html#cb155-12" aria-hidden="true" tabindex="-1"></a>dels <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="dv">0</span>, <span class="dv">15</span>, <span class="dv">30</span>, <span class="dv">60</span>, <span class="dv">120</span>, <span class="dv">300</span>)</span>
<span id="cb155-13"><a href="anay_6800.html#cb155-13" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(ints <span class="sc">~</span> dels)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:intdelaycc"></span>
<img src="bookdown_files/figure-html/intdelaycc-1.png" alt="基于 Cc 的不同延时下的时间" width="672" />
<p class="caption">
图 10.7: 基于 Cc 的不同延时下的时间
</p>
</div>
<div class="sourceCode" id="cb156"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb156-1"><a href="anay_6800.html#cb156-1" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(<span class="fu">lm</span>(ints <span class="sc">~</span> dels))</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = ints ~ dels)
## 
## Residuals:
##   (Intercept) (Intercept).1 (Intercept).2 (Intercept).3 (Intercept).4 
##      -0.20760      -0.11478      -0.02759       0.13119       0.39421 
## (Intercept).5 
##      -0.17542 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept) -8.198602   0.136891 -59.891 4.65e-07 ***
## dels         0.003165   0.001015   3.118   0.0356 *  
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.2552 on 4 degrees of freedom
## Multiple R-squared:  0.7085, Adjusted R-squared:  0.6356 
## F-statistic:  9.72 on 1 and 4 DF,  p-value: 0.03561</code></pre>
<div class="sourceCode" id="cb158"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb158-1"><a href="anay_6800.html#cb158-1" aria-hidden="true" tabindex="-1"></a><span class="co">#GammaStar</span></span>
<span id="cb158-2"><a href="anay_6800.html#cb158-2" aria-hidden="true" tabindex="-1"></a><span class="co"># For Ci-based estimates, only use Ci &lt; 100</span></span>
<span id="cb158-3"><a href="anay_6800.html#cb158-3" aria-hidden="true" tabindex="-1"></a>dataCi <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Cifull <span class="sc">&lt;</span> <span class="dv">100</span>,]</span>
<span id="cb158-4"><a href="anay_6800.html#cb158-4" aria-hidden="true" tabindex="-1"></a>dataCi0 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;0&quot;</span>,]</span>
<span id="cb158-5"><a href="anay_6800.html#cb158-5" aria-hidden="true" tabindex="-1"></a>dataCi15 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;15&quot;</span>,]</span>
<span id="cb158-6"><a href="anay_6800.html#cb158-6" aria-hidden="true" tabindex="-1"></a>dataCi30 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;30&quot;</span>,]</span>
<span id="cb158-7"><a href="anay_6800.html#cb158-7" aria-hidden="true" tabindex="-1"></a>dataCi60 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;60&quot;</span>,]</span>
<span id="cb158-8"><a href="anay_6800.html#cb158-8" aria-hidden="true" tabindex="-1"></a>dataCi120 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;120&quot;</span>,]</span>
<span id="cb158-9"><a href="anay_6800.html#cb158-9" aria-hidden="true" tabindex="-1"></a>dataCi300 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;300&quot;</span>,]</span>
<span id="cb158-10"><a href="anay_6800.html#cb158-10" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi0<span class="sc">$</span>Aapp <span class="sc">~</span> dataCi0<span class="sc">$</span>Cifull)</span>
<span id="cb158-11"><a href="anay_6800.html#cb158-11" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi0$Aapp ~ dataCi0$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13165 -0.04518  0.01711  0.05408  0.06699 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)    -5.2248105  0.0199353  -262.1   &lt;2e-16 ***
## dataCi0$Cifull  0.1228632  0.0003089   397.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06081 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.582e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb160"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb160-1"><a href="anay_6800.html#cb160-1" aria-hidden="true" tabindex="-1"></a>Gamma0 <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb160-2"><a href="anay_6800.html#cb160-2" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi15<span class="sc">$</span>Aapp <span class="sc">~</span> dataCi15<span class="sc">$</span>Cifull)</span>
<span id="cb160-3"><a href="anay_6800.html#cb160-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi15$Aapp ~ dataCi15$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13119 -0.04502  0.01705  0.05389  0.06676 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -5.0873326  0.0198665  -256.1   &lt;2e-16 ***
## dataCi15$Cifull  0.1225900  0.0003078   398.3   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0606 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.586e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb162"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb162-1"><a href="anay_6800.html#cb162-1" aria-hidden="true" tabindex="-1"></a>Gamma15 <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb162-2"><a href="anay_6800.html#cb162-2" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi30<span class="sc">$</span>Aapp <span class="sc">~</span> dataCi30<span class="sc">$</span>Cifull)</span>
<span id="cb162-3"><a href="anay_6800.html#cb162-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi30$Aapp ~ dataCi30$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13076 -0.04488  0.01699  0.05372  0.06654 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -4.9553180  0.0198028  -250.2   &lt;2e-16 ***
## dataCi30$Cifull  0.1223321  0.0003068   398.7   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0604 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.59e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb164"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb164-1"><a href="anay_6800.html#cb164-1" aria-hidden="true" tabindex="-1"></a>Gamma30 <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb164-2"><a href="anay_6800.html#cb164-2" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi60<span class="sc">$</span>Aapp <span class="sc">~</span> dataCi60<span class="sc">$</span>Cifull)</span>
<span id="cb164-3"><a href="anay_6800.html#cb164-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi60$Aapp ~ dataCi60$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13001 -0.04462  0.01690  0.05341  0.06616 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -4.706429   0.019689  -239.0   &lt;2e-16 ***
## dataCi60$Cifull  0.121858   0.000305   399.5   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06006 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.596e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb166"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb166-1"><a href="anay_6800.html#cb166-1" aria-hidden="true" tabindex="-1"></a>Gamma60 <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb166-2"><a href="anay_6800.html#cb166-2" aria-hidden="true" tabindex="-1"></a>m5 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi120<span class="sc">$</span>Aapp <span class="sc">~</span> dataCi120<span class="sc">$</span>Cifull)</span>
<span id="cb166-3"><a href="anay_6800.html#cb166-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m5)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi120$Aapp ~ dataCi120$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12879 -0.04421  0.01673  0.05292  0.06555 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -4.2616980  0.0195062  -218.5   &lt;2e-16 ***
## dataCi120$Cifull  0.1210486  0.0003022   400.5   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0595 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.604e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb168"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb168-1"><a href="anay_6800.html#cb168-1" aria-hidden="true" tabindex="-1"></a>Gamma120 <span class="ot">&lt;-</span> <span class="sc">-</span>m5<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m5<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb168-2"><a href="anay_6800.html#cb168-2" aria-hidden="true" tabindex="-1"></a>m6 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi300<span class="sc">$</span>Aapp <span class="sc">~</span> dataCi300<span class="sc">$</span>Cifull)</span>
<span id="cb168-3"><a href="anay_6800.html#cb168-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m6)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi300$Aapp ~ dataCi300$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12662 -0.04346  0.01645  0.05202  0.06444 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -3.2402030  0.0191773  -169.0   &lt;2e-16 ***
## dataCi300$Cifull  0.1193852  0.0002971   401.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.05849 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.615e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb170"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb170-1"><a href="anay_6800.html#cb170-1" aria-hidden="true" tabindex="-1"></a>Gamma300 <span class="ot">&lt;-</span> <span class="sc">-</span>m6<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m6<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb170-2"><a href="anay_6800.html#cb170-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb170-3"><a href="anay_6800.html#cb170-3" aria-hidden="true" tabindex="-1"></a>GammastarCi <span class="ot">&lt;-</span></span>
<span id="cb170-4"><a href="anay_6800.html#cb170-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(Gamma0, Gamma15, Gamma30, Gamma60, Gamma120, Gamma300)</span>
<span id="cb170-5"><a href="anay_6800.html#cb170-5" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb170-6"><a href="anay_6800.html#cb170-6" aria-hidden="true" tabindex="-1"></a><span class="co"># For Cc-based estimates, only use Cc &lt; 75</span></span>
<span id="cb170-7"><a href="anay_6800.html#cb170-7" aria-hidden="true" tabindex="-1"></a>dataCc <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Ccfull <span class="sc">&lt;</span> <span class="dv">75</span>,]</span>
<span id="cb170-8"><a href="anay_6800.html#cb170-8" aria-hidden="true" tabindex="-1"></a>dataCc0 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;0&quot;</span>,]</span>
<span id="cb170-9"><a href="anay_6800.html#cb170-9" aria-hidden="true" tabindex="-1"></a>dataCc15 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;15&quot;</span>,]</span>
<span id="cb170-10"><a href="anay_6800.html#cb170-10" aria-hidden="true" tabindex="-1"></a>dataCc30 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;30&quot;</span>,]</span>
<span id="cb170-11"><a href="anay_6800.html#cb170-11" aria-hidden="true" tabindex="-1"></a>dataCc60 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;60&quot;</span>,]</span>
<span id="cb170-12"><a href="anay_6800.html#cb170-12" aria-hidden="true" tabindex="-1"></a>dataCc120 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;120&quot;</span>,]</span>
<span id="cb170-13"><a href="anay_6800.html#cb170-13" aria-hidden="true" tabindex="-1"></a>dataCc300 <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Delay <span class="sc">==</span> <span class="st">&quot;300&quot;</span>,]</span>
<span id="cb170-14"><a href="anay_6800.html#cb170-14" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc0<span class="sc">$</span>Aapp <span class="sc">~</span> dataCc0<span class="sc">$</span>Ccfull)</span>
<span id="cb170-15"><a href="anay_6800.html#cb170-15" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc0$Aapp ~ dataCc0$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075648 -0.025444  0.009857  0.031706  0.039431 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)    -6.4062011  0.0181852  -352.3   &lt;2e-16 ***
## dataCc0$Ccfull  0.1438710  0.0003527   407.9   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03599 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.664e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb172"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb172-1"><a href="anay_6800.html#cb172-1" aria-hidden="true" tabindex="-1"></a>Gamma0 <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb172-2"><a href="anay_6800.html#cb172-2" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc15<span class="sc">$</span>Aapp <span class="sc">~</span> dataCc15<span class="sc">$</span>Ccfull)</span>
<span id="cb172-3"><a href="anay_6800.html#cb172-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc15$Aapp ~ dataCc15$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075393 -0.025359  0.009824  0.031599  0.039299 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -6.2659145  0.0181243  -345.7   &lt;2e-16 ***
## dataCc15$Ccfull  0.1435470  0.0003515   408.4   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03587 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.668e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb174"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb174-1"><a href="anay_6800.html#cb174-1" aria-hidden="true" tabindex="-1"></a>Gamma15 <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb174-2"><a href="anay_6800.html#cb174-2" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc30<span class="sc">$</span>Aapp <span class="sc">~</span> dataCc30<span class="sc">$</span>Ccfull)</span>
<span id="cb174-3"><a href="anay_6800.html#cb174-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc30$Aapp ~ dataCc30$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075158 -0.025280  0.009794  0.031501  0.039177 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -6.1312578  0.0180681  -339.3   &lt;2e-16 ***
## dataCc30$Ccfull  0.1432414  0.0003504   408.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03576 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.671e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb176"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb176-1"><a href="anay_6800.html#cb176-1" aria-hidden="true" tabindex="-1"></a>Gamma30 <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb176-2"><a href="anay_6800.html#cb176-2" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc60<span class="sc">$</span>Aapp <span class="sc">~</span> dataCc60<span class="sc">$</span>Ccfull)</span>
<span id="cb176-3"><a href="anay_6800.html#cb176-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc60$Aapp ~ dataCc60$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074737 -0.025139  0.009739  0.031325  0.038959 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)     -5.8775340  0.0179675  -327.1   &lt;2e-16 ***
## dataCc60$Ccfull  0.1426797  0.0003485   409.4   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03556 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.676e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb178"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb178-1"><a href="anay_6800.html#cb178-1" aria-hidden="true" tabindex="-1"></a>Gamma60 <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb178-2"><a href="anay_6800.html#cb178-2" aria-hidden="true" tabindex="-1"></a>m5 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc120<span class="sc">$</span>Aapp <span class="sc">~</span> dataCc120<span class="sc">$</span>Ccfull)</span>
<span id="cb178-3"><a href="anay_6800.html#cb178-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m5)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc120$Aapp ~ dataCc120$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.074060 -0.024912  0.009651  0.031042  0.038607 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -5.4246412  0.0178052  -304.7   &lt;2e-16 ***
## dataCc120$Ccfull  0.1417238  0.0003453   410.4   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03524 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.684e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb180"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb180-1"><a href="anay_6800.html#cb180-1" aria-hidden="true" tabindex="-1"></a>Gamma120 <span class="ot">&lt;-</span> <span class="sc">-</span>m5<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m5<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb180-2"><a href="anay_6800.html#cb180-2" aria-hidden="true" tabindex="-1"></a>m6 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCc300<span class="sc">$</span>Aapp <span class="sc">~</span> dataCc300<span class="sc">$</span>Ccfull)</span>
<span id="cb180-3"><a href="anay_6800.html#cb180-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m6)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCc300$Aapp ~ dataCc300$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.072835 -0.024500  0.009492  0.030529  0.037969 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -4.3867121  0.0175110  -250.5   &lt;2e-16 ***
## dataCc300$Ccfull  0.1397661  0.0003396   411.5   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03466 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.694e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb182"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb182-1"><a href="anay_6800.html#cb182-1" aria-hidden="true" tabindex="-1"></a>Gamma300 <span class="ot">&lt;-</span> <span class="sc">-</span>m6<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m6<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb182-2"><a href="anay_6800.html#cb182-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb182-3"><a href="anay_6800.html#cb182-3" aria-hidden="true" tabindex="-1"></a>GammastarCc <span class="ot">&lt;-</span></span>
<span id="cb182-4"><a href="anay_6800.html#cb182-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(Gamma0, Gamma15, Gamma30, Gamma60, Gamma120, Gamma300)</span>
<span id="cb182-5"><a href="anay_6800.html#cb182-5" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb182-6"><a href="anay_6800.html#cb182-6" aria-hidden="true" tabindex="-1"></a>Delay2 <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="st">&quot;0&quot;</span>, <span class="st">&quot;15&quot;</span>, <span class="st">&quot;30&quot;</span>, <span class="st">&quot;60&quot;</span>, <span class="st">&quot;120&quot;</span>, <span class="st">&quot;300&quot;</span>)</span>
<span id="cb182-7"><a href="anay_6800.html#cb182-7" aria-hidden="true" tabindex="-1"></a>PRcomps <span class="ot">&lt;-</span></span>
<span id="cb182-8"><a href="anay_6800.html#cb182-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.data.frame</span>(<span class="fu">cbind</span>(Delay2, GammaCc, GammaCi, GammastarCc, GammastarCi))</span>
<span id="cb182-9"><a href="anay_6800.html#cb182-9" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(PRcomps, <span class="st">&quot;./data/PRcomps.csv&quot;</span>)</span>
<span id="cb182-10"><a href="anay_6800.html#cb182-10" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb182-11"><a href="anay_6800.html#cb182-11" aria-hidden="true" tabindex="-1"></a>ints <span class="ot">&lt;-</span></span>
<span id="cb182-12"><a href="anay_6800.html#cb182-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb182-13"><a href="anay_6800.html#cb182-13" aria-hidden="true" tabindex="-1"></a>    m1<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb182-14"><a href="anay_6800.html#cb182-14" aria-hidden="true" tabindex="-1"></a>    m2<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb182-15"><a href="anay_6800.html#cb182-15" aria-hidden="true" tabindex="-1"></a>    m3<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb182-16"><a href="anay_6800.html#cb182-16" aria-hidden="true" tabindex="-1"></a>    m4<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb182-17"><a href="anay_6800.html#cb182-17" aria-hidden="true" tabindex="-1"></a>    m5<span class="sc">$</span>coefficients[<span class="dv">1</span>],</span>
<span id="cb182-18"><a href="anay_6800.html#cb182-18" aria-hidden="true" tabindex="-1"></a>    m6<span class="sc">$</span>coefficients[<span class="dv">1</span>]</span>
<span id="cb182-19"><a href="anay_6800.html#cb182-19" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb182-20"><a href="anay_6800.html#cb182-20" aria-hidden="true" tabindex="-1"></a>dels <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="dv">0</span>, <span class="dv">15</span>, <span class="dv">30</span>, <span class="dv">60</span>, <span class="dv">120</span>, <span class="dv">300</span>)</span>
<span id="cb182-21"><a href="anay_6800.html#cb182-21" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(<span class="fu">lm</span>(ints <span class="sc">~</span> dels))</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = ints ~ dels)
## 
## Residuals:
##   (Intercept) (Intercept).1 (Intercept).2 (Intercept).3 (Intercept).4 
##    -0.0751633    -0.0347043     0.0001247     0.0541933     0.1077758 
## (Intercept).5 
##    -0.0522262 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept) -6.331038   0.041673 -151.92 1.13e-08 ***
## dels         0.006655   0.000309   21.54 2.75e-05 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.07768 on 4 degrees of freedom
## Multiple R-squared:  0.9915, Adjusted R-squared:  0.9893 
## F-statistic: 463.9 on 1 and 4 DF,  p-value: 2.749e-05</code></pre>
<div class="sourceCode" id="cb184"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb184-1"><a href="anay_6800.html#cb184-1" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(ints <span class="sc">~</span> dels)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:slpdelaycc"></span>
<img src="bookdown_files/figure-html/slpdelaycc-1.png" alt="基于 Cc 的不同延时下的截距" width="672" />
<p class="caption">
图 10.8: 基于 Cc 的不同延时下的截距
</p>
</div>
</div>
<div id="multi7" class="section level3" number="10.7.6">
<h3><span class="header-section-number">10.7.6</span> 无光呼吸酶失活模块</h3>
<p>该部分内容是在测量 ACi 曲线时检测 Rubisco 失活的影响 – 从激活状态的变化导致了多少的偏移？</p>
<div id="multi8" class="section level4" number="10.7.6.1">
<h4><span class="header-section-number">10.7.6.1</span> 数据构造</h4>
<p>基于文献，假定 <span class="math inline">\(CO_2\)</span> 从 400 ppm 降低至 5 ppm 时，激活率从 100% 降低至 80%。</p>
<div class="sourceCode" id="cb185"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb185-1"><a href="anay_6800.html#cb185-1" aria-hidden="true" tabindex="-1"></a><span class="co">#Assume that Rubisco activation state drops from 100% at 400 ppm to 80% at 5 ppm Cr (line 273 is Cr of 400, Cc of 297; 5ppm Cr is 25 ppm Cc) roughly from Salvucci et al 1986, arabidopsis; assume linear response</span></span>
<span id="cb185-2"><a href="anay_6800.html#cb185-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-3"><a href="anay_6800.html#cb185-3" aria-hidden="true" tabindex="-1"></a><span class="co">#不同的cr对应了不同的cc浓度，</span></span>
<span id="cb185-4"><a href="anay_6800.html#cb185-4" aria-hidden="true" tabindex="-1"></a><span class="co">#此为cc的变化范围（cr从400降低至5）</span></span>
<span id="cb185-5"><a href="anay_6800.html#cb185-5" aria-hidden="true" tabindex="-1"></a>ccslope <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">297</span>)</span>
<span id="cb185-6"><a href="anay_6800.html#cb185-6" aria-hidden="true" tabindex="-1"></a><span class="co">#酶的激活率变化</span></span>
<span id="cb185-7"><a href="anay_6800.html#cb185-7" aria-hidden="true" tabindex="-1"></a>raslope <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fl">0.80</span>, <span class="fl">1.00</span>)</span>
<span id="cb185-8"><a href="anay_6800.html#cb185-8" aria-hidden="true" tabindex="-1"></a><span class="co">#得到cc变化对应rubisco激活率变化的关系</span></span>
<span id="cb185-9"><a href="anay_6800.html#cb185-9" aria-hidden="true" tabindex="-1"></a>ram1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(raslope <span class="sc">~</span> ccslope)</span>
<span id="cb185-10"><a href="anay_6800.html#cb185-10" aria-hidden="true" tabindex="-1"></a>raslope <span class="ot">&lt;-</span> <span class="fu">coef</span>(ram1)[<span class="dv">2</span>]</span>
<span id="cb185-11"><a href="anay_6800.html#cb185-11" aria-hidden="true" tabindex="-1"></a>raint <span class="ot">&lt;-</span> <span class="fu">coef</span>(ram1)[<span class="dv">1</span>]</span>
<span id="cb185-12"><a href="anay_6800.html#cb185-12" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-13"><a href="anay_6800.html#cb185-13" aria-hidden="true" tabindex="-1"></a><span class="co">#根据公式计算酶部分失活后各个参数</span></span>
<span id="cb185-14"><a href="anay_6800.html#cb185-14" aria-hidden="true" tabindex="-1"></a>vora1 <span class="ot">&lt;-</span> (raslope <span class="sc">*</span> Cc <span class="sc">+</span> raint) <span class="sc">*</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc <span class="sc">/</span> Kc))</span>
<span id="cb185-15"><a href="anay_6800.html#cb185-15" aria-hidden="true" tabindex="-1"></a>vcra1 <span class="ot">&lt;-</span> (raslope <span class="sc">*</span> Cc <span class="sc">+</span> raint) <span class="sc">*</span> Vcmax <span class="sc">*</span> (Cc) <span class="sc">/</span> (Cc <span class="sc">+</span> Kco)</span>
<span id="cb185-16"><a href="anay_6800.html#cb185-16" aria-hidden="true" tabindex="-1"></a>Ara1 <span class="ot">&lt;-</span> vcra1 <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vora1 <span class="sc">-</span> R</span>
<span id="cb185-17"><a href="anay_6800.html#cb185-17" aria-hidden="true" tabindex="-1"></a>Aapparentra1 <span class="ot">&lt;-</span> vcra1 <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vora1</span>
<span id="cb185-18"><a href="anay_6800.html#cb185-18" aria-hidden="true" tabindex="-1"></a>Cira1 <span class="ot">&lt;-</span> Ara1 <span class="sc">/</span> gm <span class="sc">+</span> Cc</span>
<span id="cb185-19"><a href="anay_6800.html#cb185-19" aria-hidden="true" tabindex="-1"></a>Cbra1 <span class="ot">&lt;-</span> Ara1 <span class="sc">/</span> gsw <span class="sc">+</span> Cira1</span>
<span id="cb185-20"><a href="anay_6800.html#cb185-20" aria-hidden="true" tabindex="-1"></a>Crra1 <span class="ot">&lt;-</span> Ara1 <span class="sc">/</span> BLC <span class="sc">+</span> Cbra1</span>
<span id="cb185-21"><a href="anay_6800.html#cb185-21" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-22"><a href="anay_6800.html#cb185-22" aria-hidden="true" tabindex="-1"></a><span class="co">#失活后换算为分钟的变化斜率</span></span>
<span id="cb185-23"><a href="anay_6800.html#cb185-23" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb185-24"><a href="anay_6800.html#cb185-24" aria-hidden="true" tabindex="-1"></a>RateCr1model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Crra1 <span class="sc">~</span> Counter)</span>
<span id="cb185-25"><a href="anay_6800.html#cb185-25" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCr1model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span></span>
<span id="cb185-26"><a href="anay_6800.html#cb185-26" aria-hidden="true" tabindex="-1"></a>RateCb1model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cbra1 <span class="sc">~</span> Counter)</span>
<span id="cb185-27"><a href="anay_6800.html#cb185-27" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCb1model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span></span>
<span id="cb185-28"><a href="anay_6800.html#cb185-28" aria-hidden="true" tabindex="-1"></a>RateCi1model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cira1 <span class="sc">~</span> Counter)</span>
<span id="cb185-29"><a href="anay_6800.html#cb185-29" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCi1model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span></span>
<span id="cb185-30"><a href="anay_6800.html#cb185-30" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb185-31"><a href="anay_6800.html#cb185-31" aria-hidden="true" tabindex="-1"></a>RateCc <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span></span>
<span id="cb185-32"><a href="anay_6800.html#cb185-32" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-33"><a href="anay_6800.html#cb185-33" aria-hidden="true" tabindex="-1"></a><span class="co">#假定在5ppm时下降为40%</span></span>
<span id="cb185-34"><a href="anay_6800.html#cb185-34" aria-hidden="true" tabindex="-1"></a>ccslope2 <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">297</span>)</span>
<span id="cb185-35"><a href="anay_6800.html#cb185-35" aria-hidden="true" tabindex="-1"></a>raslope2 <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fl">0.40</span>, <span class="fl">1.00</span>)</span>
<span id="cb185-36"><a href="anay_6800.html#cb185-36" aria-hidden="true" tabindex="-1"></a>ram2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(raslope2 <span class="sc">~</span> ccslope2)</span>
<span id="cb185-37"><a href="anay_6800.html#cb185-37" aria-hidden="true" tabindex="-1"></a>raslope2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(ram2)[<span class="dv">2</span>]</span>
<span id="cb185-38"><a href="anay_6800.html#cb185-38" aria-hidden="true" tabindex="-1"></a>raint2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(ram2)[<span class="dv">1</span>]</span>
<span id="cb185-39"><a href="anay_6800.html#cb185-39" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-40"><a href="anay_6800.html#cb185-40" aria-hidden="true" tabindex="-1"></a>vora2 <span class="ot">&lt;-</span></span>
<span id="cb185-41"><a href="anay_6800.html#cb185-41" aria-hidden="true" tabindex="-1"></a>  (raslope2 <span class="sc">*</span> Cc <span class="sc">+</span> raint2) <span class="sc">*</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc <span class="sc">/</span> Kc)) </span>
<span id="cb185-42"><a href="anay_6800.html#cb185-42" aria-hidden="true" tabindex="-1"></a>vcra2 <span class="ot">&lt;-</span> (raslope2 <span class="sc">*</span> Cc <span class="sc">+</span> raint2) <span class="sc">*</span> Vcmax <span class="sc">*</span> (Cc) <span class="sc">/</span> (Cc <span class="sc">+</span> Kco) </span>
<span id="cb185-43"><a href="anay_6800.html#cb185-43" aria-hidden="true" tabindex="-1"></a>Ara2 <span class="ot">&lt;-</span> vcra2 <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vora2 <span class="sc">-</span> R </span>
<span id="cb185-44"><a href="anay_6800.html#cb185-44" aria-hidden="true" tabindex="-1"></a>Aapparentra2 <span class="ot">&lt;-</span> vcra2 <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vora2 </span>
<span id="cb185-45"><a href="anay_6800.html#cb185-45" aria-hidden="true" tabindex="-1"></a>Cira2 <span class="ot">&lt;-</span> Ara2 <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb185-46"><a href="anay_6800.html#cb185-46" aria-hidden="true" tabindex="-1"></a>Cbra2 <span class="ot">&lt;-</span> Ara2 <span class="sc">/</span> gsw <span class="sc">+</span> Cira2 <span class="co">#umol mol-1</span></span>
<span id="cb185-47"><a href="anay_6800.html#cb185-47" aria-hidden="true" tabindex="-1"></a>Crra2 <span class="ot">&lt;-</span> Ara2 <span class="sc">/</span> BLC <span class="sc">+</span> Cbra2 <span class="co">#umol mol-1</span></span>
<span id="cb185-48"><a href="anay_6800.html#cb185-48" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb185-49"><a href="anay_6800.html#cb185-49" aria-hidden="true" tabindex="-1"></a>RateCr2model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Crra2 <span class="sc">~</span> Counter)</span>
<span id="cb185-50"><a href="anay_6800.html#cb185-50" aria-hidden="true" tabindex="-1"></a>RateCr2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCr2model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> <span class="co">#umol mol-1 min-1</span></span>
<span id="cb185-51"><a href="anay_6800.html#cb185-51" aria-hidden="true" tabindex="-1"></a>RateCb2model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cbra2 <span class="sc">~</span> Counter)</span>
<span id="cb185-52"><a href="anay_6800.html#cb185-52" aria-hidden="true" tabindex="-1"></a>RateCb2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCb2model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> <span class="co">#umol mol-1 min-1</span></span>
<span id="cb185-53"><a href="anay_6800.html#cb185-53" aria-hidden="true" tabindex="-1"></a>RateCi2model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cira2 <span class="sc">~</span> Counter)</span>
<span id="cb185-54"><a href="anay_6800.html#cb185-54" aria-hidden="true" tabindex="-1"></a>RateCi2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCi2model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> <span class="co">#umol mol-1 min-1</span></span>
<span id="cb185-55"><a href="anay_6800.html#cb185-55" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb185-56"><a href="anay_6800.html#cb185-56" aria-hidden="true" tabindex="-1"></a>RateCc <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> <span class="co">#umol mol-1 min-1</span></span>
<span id="cb185-57"><a href="anay_6800.html#cb185-57" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-58"><a href="anay_6800.html#cb185-58" aria-hidden="true" tabindex="-1"></a><span class="co">#假定在5ppm时下降为20%</span></span>
<span id="cb185-59"><a href="anay_6800.html#cb185-59" aria-hidden="true" tabindex="-1"></a>ccslope3 <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">297</span>)</span>
<span id="cb185-60"><a href="anay_6800.html#cb185-60" aria-hidden="true" tabindex="-1"></a>raslope3 <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fl">0.20</span>, <span class="fl">1.00</span>)</span>
<span id="cb185-61"><a href="anay_6800.html#cb185-61" aria-hidden="true" tabindex="-1"></a>ram3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(raslope3 <span class="sc">~</span> ccslope3)</span>
<span id="cb185-62"><a href="anay_6800.html#cb185-62" aria-hidden="true" tabindex="-1"></a>raslope3 <span class="ot">&lt;-</span> <span class="fu">coef</span>(ram3)[<span class="dv">2</span>]</span>
<span id="cb185-63"><a href="anay_6800.html#cb185-63" aria-hidden="true" tabindex="-1"></a>raint3 <span class="ot">&lt;-</span> <span class="fu">coef</span>(ram3)[<span class="dv">1</span>]</span>
<span id="cb185-64"><a href="anay_6800.html#cb185-64" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-65"><a href="anay_6800.html#cb185-65" aria-hidden="true" tabindex="-1"></a>vora3 <span class="ot">&lt;-</span></span>
<span id="cb185-66"><a href="anay_6800.html#cb185-66" aria-hidden="true" tabindex="-1"></a>  (raslope3 <span class="sc">*</span> Cc <span class="sc">+</span> raint3) <span class="sc">*</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc <span class="sc">/</span> Kc)) </span>
<span id="cb185-67"><a href="anay_6800.html#cb185-67" aria-hidden="true" tabindex="-1"></a>vcra3 <span class="ot">&lt;-</span> (raslope3 <span class="sc">*</span> Cc <span class="sc">+</span> raint3) <span class="sc">*</span> Vcmax <span class="sc">*</span> (Cc) <span class="sc">/</span> (Cc <span class="sc">+</span> Kco) </span>
<span id="cb185-68"><a href="anay_6800.html#cb185-68" aria-hidden="true" tabindex="-1"></a>Ara3 <span class="ot">&lt;-</span> vcra3 <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vora3 <span class="sc">-</span> R </span>
<span id="cb185-69"><a href="anay_6800.html#cb185-69" aria-hidden="true" tabindex="-1"></a>Aapparentra3 <span class="ot">&lt;-</span> vcra3 <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vora3 </span>
<span id="cb185-70"><a href="anay_6800.html#cb185-70" aria-hidden="true" tabindex="-1"></a>Cira3 <span class="ot">&lt;-</span> Ara3 <span class="sc">/</span> gm <span class="sc">+</span> Cc </span>
<span id="cb185-71"><a href="anay_6800.html#cb185-71" aria-hidden="true" tabindex="-1"></a>Cbra3 <span class="ot">&lt;-</span> Ara3 <span class="sc">/</span> gsw <span class="sc">+</span> Cira3 </span>
<span id="cb185-72"><a href="anay_6800.html#cb185-72" aria-hidden="true" tabindex="-1"></a>Crra3 <span class="ot">&lt;-</span> Ara3 <span class="sc">/</span> BLC <span class="sc">+</span> Cbra3 </span>
<span id="cb185-73"><a href="anay_6800.html#cb185-73" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb185-74"><a href="anay_6800.html#cb185-74" aria-hidden="true" tabindex="-1"></a>RateCr3model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Crra3 <span class="sc">~</span> Counter)</span>
<span id="cb185-75"><a href="anay_6800.html#cb185-75" aria-hidden="true" tabindex="-1"></a>RateCr3 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCr3model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> </span>
<span id="cb185-76"><a href="anay_6800.html#cb185-76" aria-hidden="true" tabindex="-1"></a>RateCb3model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cbra3 <span class="sc">~</span> Counter)</span>
<span id="cb185-77"><a href="anay_6800.html#cb185-77" aria-hidden="true" tabindex="-1"></a>RateCb3 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCb3model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> </span>
<span id="cb185-78"><a href="anay_6800.html#cb185-78" aria-hidden="true" tabindex="-1"></a>RateCi3model <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cira3 <span class="sc">~</span> Counter)</span>
<span id="cb185-79"><a href="anay_6800.html#cb185-79" aria-hidden="true" tabindex="-1"></a>RateCi3 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCi3model)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> </span>
<span id="cb185-80"><a href="anay_6800.html#cb185-80" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb185-81"><a href="anay_6800.html#cb185-81" aria-hidden="true" tabindex="-1"></a>RateCc <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> <span class="dv">60</span> </span>
<span id="cb185-82"><a href="anay_6800.html#cb185-82" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb185-83"><a href="anay_6800.html#cb185-83" aria-hidden="true" tabindex="-1"></a>Anet <span class="ot">&lt;-</span> <span class="fu">c</span>(A, Ara1, Ara2, Ara3)</span>
<span id="cb185-84"><a href="anay_6800.html#cb185-84" aria-hidden="true" tabindex="-1"></a>Aapp <span class="ot">&lt;-</span> <span class="fu">c</span>(Aapparent, Aapparentra1, Aapparentra2, Aapparentra3)</span>
<span id="cb185-85"><a href="anay_6800.html#cb185-85" aria-hidden="true" tabindex="-1"></a>Ccfull <span class="ot">&lt;-</span> <span class="fu">rep</span>(Cc, <span class="dv">4</span>)</span>
<span id="cb185-86"><a href="anay_6800.html#cb185-86" aria-hidden="true" tabindex="-1"></a>Cifull <span class="ot">&lt;-</span> <span class="fu">c</span>(Ci, Cira1, Cira2, Cira3)</span>
<span id="cb185-87"><a href="anay_6800.html#cb185-87" aria-hidden="true" tabindex="-1"></a>Deactivation <span class="ot">&lt;-</span></span>
<span id="cb185-88"><a href="anay_6800.html#cb185-88" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb185-89"><a href="anay_6800.html#cb185-89" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;None&quot;</span>, <span class="fu">length</span>(A)),</span>
<span id="cb185-90"><a href="anay_6800.html#cb185-90" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;Low&quot;</span>, <span class="fu">length</span>(Ara1)),</span>
<span id="cb185-91"><a href="anay_6800.html#cb185-91" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;Medium&quot;</span>, <span class="fu">length</span>(Ara2)),</span>
<span id="cb185-92"><a href="anay_6800.html#cb185-92" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;High&quot;</span>, <span class="fu">length</span>(Ara3))</span>
<span id="cb185-93"><a href="anay_6800.html#cb185-93" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb185-94"><a href="anay_6800.html#cb185-94" aria-hidden="true" tabindex="-1"></a>RASdata <span class="ot">&lt;-</span></span>
<span id="cb185-95"><a href="anay_6800.html#cb185-95" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.data.frame</span>(<span class="fu">cbind</span>(Anet, Aapp, Ccfull, Cifull, Deactivation))</span>
<span id="cb185-96"><a href="anay_6800.html#cb185-96" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(RASdata, <span class="st">&quot;./data/RASdata.csv&quot;</span>)</span></code></pre></div>
</div>
</div>
<div id="multi9" class="section level3" number="10.7.7">
<h3><span class="header-section-number">10.7.7</span> 酶失活作图</h3>
<div class="sourceCode" id="cb186"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb186-1"><a href="anay_6800.html#cb186-1" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/RASdata.csv&quot;</span>)</span>
<span id="cb186-2"><a href="anay_6800.html#cb186-2" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Ccfull <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(data<span class="sc">$</span>Ccfull)</span>
<span id="cb186-3"><a href="anay_6800.html#cb186-3" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Deactivation <span class="ot">&lt;-</span> <span class="fu">as.factor</span>(data<span class="sc">$</span>Deactivation)</span>
<span id="cb186-4"><a href="anay_6800.html#cb186-4" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb186-5"><a href="anay_6800.html#cb186-5" aria-hidden="true" tabindex="-1"></a>AnetCc <span class="ot">&lt;-</span></span>
<span id="cb186-6"><a href="anay_6800.html#cb186-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Ccfull, <span class="at">y =</span> Anet, <span class="at">colour =</span> Deactivation)) <span class="sc">+</span></span>
<span id="cb186-7"><a href="anay_6800.html#cb186-7" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb186-8"><a href="anay_6800.html#cb186-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[c] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb186-9"><a href="anay_6800.html#cb186-9" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb186-10"><a href="anay_6800.html#cb186-10" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb186-11"><a href="anay_6800.html#cb186-11" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb186-12"><a href="anay_6800.html#cb186-12" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb186-13"><a href="anay_6800.html#cb186-13" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb186-14"><a href="anay_6800.html#cb186-14" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb186-15"><a href="anay_6800.html#cb186-15" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb186-16"><a href="anay_6800.html#cb186-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Deactivation&#39;</span>) <span class="sc">+</span></span>
<span id="cb186-17"><a href="anay_6800.html#cb186-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">100</span>),</span>
<span id="cb186-18"><a href="anay_6800.html#cb186-18" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">40</span>, <span class="dv">55</span>, <span class="dv">70</span>, <span class="dv">85</span>, <span class="dv">100</span>)) <span class="sc">+</span></span>
<span id="cb186-19"><a href="anay_6800.html#cb186-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb186-20"><a href="anay_6800.html#cb186-20" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb186-21"><a href="anay_6800.html#cb186-21" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb186-22"><a href="anay_6800.html#cb186-22" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb186-23"><a href="anay_6800.html#cb186-23" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb186-24"><a href="anay_6800.html#cb186-24" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb186-25"><a href="anay_6800.html#cb186-25" aria-hidden="true" tabindex="-1"></a>AnetCc</span></code></pre></div>
<pre><code>## Warning: Removed 1205 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:anetdeccc"></span>
<img src="bookdown_files/figure-html/anetdeccc-1.png" alt="Rubisco 不同失活程度时 Anet VS Cc" width="672" />
<p class="caption">
图 10.9: Rubisco 不同失活程度时 Anet VS Cc
</p>
</div>
<div class="sourceCode" id="cb188"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb188-1"><a href="anay_6800.html#cb188-1" aria-hidden="true" tabindex="-1"></a>AnetCi <span class="ot">&lt;-</span></span>
<span id="cb188-2"><a href="anay_6800.html#cb188-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Cifull, <span class="at">y =</span> Anet, <span class="at">colour =</span> Deactivation)) <span class="sc">+</span></span>
<span id="cb188-3"><a href="anay_6800.html#cb188-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb188-4"><a href="anay_6800.html#cb188-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb188-5"><a href="anay_6800.html#cb188-5" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb188-6"><a href="anay_6800.html#cb188-6" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb188-7"><a href="anay_6800.html#cb188-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb188-8"><a href="anay_6800.html#cb188-8" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb188-9"><a href="anay_6800.html#cb188-9" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb188-10"><a href="anay_6800.html#cb188-10" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb188-11"><a href="anay_6800.html#cb188-11" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb188-12"><a href="anay_6800.html#cb188-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Deactivation&#39;</span>) <span class="sc">+</span></span>
<span id="cb188-13"><a href="anay_6800.html#cb188-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">100</span>),</span>
<span id="cb188-14"><a href="anay_6800.html#cb188-14" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">40</span>, <span class="dv">55</span>, <span class="dv">70</span>, <span class="dv">85</span>, <span class="dv">100</span>)) <span class="sc">+</span></span>
<span id="cb188-15"><a href="anay_6800.html#cb188-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb188-16"><a href="anay_6800.html#cb188-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb188-17"><a href="anay_6800.html#cb188-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb188-18"><a href="anay_6800.html#cb188-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb188-19"><a href="anay_6800.html#cb188-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb188-20"><a href="anay_6800.html#cb188-20" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb188-21"><a href="anay_6800.html#cb188-21" aria-hidden="true" tabindex="-1"></a>AnetCi</span></code></pre></div>
<pre><code>## Warning: Removed 1230 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:anetdecci"></span>
<img src="bookdown_files/figure-html/anetdecci-1.png" alt="Rubisco 不同失活程度时 Anet VS Ci" width="672" />
<p class="caption">
图 10.10: Rubisco 不同失活程度时 Anet VS Ci
</p>
</div>
<div class="sourceCode" id="cb190"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb190-1"><a href="anay_6800.html#cb190-1" aria-hidden="true" tabindex="-1"></a>AappCc <span class="ot">&lt;-</span></span>
<span id="cb190-2"><a href="anay_6800.html#cb190-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Ccfull, <span class="at">y =</span> Aapp, <span class="at">colour =</span> Deactivation)) <span class="sc">+</span></span>
<span id="cb190-3"><a href="anay_6800.html#cb190-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb190-4"><a href="anay_6800.html#cb190-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[c] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb190-5"><a href="anay_6800.html#cb190-5" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb190-6"><a href="anay_6800.html#cb190-6" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb190-7"><a href="anay_6800.html#cb190-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[apparent] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb190-8"><a href="anay_6800.html#cb190-8" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb190-9"><a href="anay_6800.html#cb190-9" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb190-10"><a href="anay_6800.html#cb190-10" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb190-11"><a href="anay_6800.html#cb190-11" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb190-12"><a href="anay_6800.html#cb190-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Deactivation&#39;</span>) <span class="sc">+</span></span>
<span id="cb190-13"><a href="anay_6800.html#cb190-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">75</span>),</span>
<span id="cb190-14"><a href="anay_6800.html#cb190-14" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">35</span>, <span class="dv">45</span>, <span class="dv">55</span>, <span class="dv">65</span>, <span class="dv">75</span>)) <span class="sc">+</span></span>
<span id="cb190-15"><a href="anay_6800.html#cb190-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb190-16"><a href="anay_6800.html#cb190-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb190-17"><a href="anay_6800.html#cb190-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb190-18"><a href="anay_6800.html#cb190-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb190-19"><a href="anay_6800.html#cb190-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb190-20"><a href="anay_6800.html#cb190-20" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb190-21"><a href="anay_6800.html#cb190-21" aria-hidden="true" tabindex="-1"></a>AappCc</span></code></pre></div>
<pre><code>## Warning: Removed 1300 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:aappdeccc"></span>
<img src="bookdown_files/figure-html/aappdeccc-1.png" alt="Rubisco 不同失活程度时 Aapp VS Cc" width="672" />
<p class="caption">
图 10.11: Rubisco 不同失活程度时 Aapp VS Cc
</p>
</div>
<div class="sourceCode" id="cb192"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb192-1"><a href="anay_6800.html#cb192-1" aria-hidden="true" tabindex="-1"></a>AappCi <span class="ot">&lt;-</span></span>
<span id="cb192-2"><a href="anay_6800.html#cb192-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Cifull, <span class="at">y =</span> Aapp, <span class="at">colour =</span> Deactivation)) <span class="sc">+</span></span>
<span id="cb192-3"><a href="anay_6800.html#cb192-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb192-4"><a href="anay_6800.html#cb192-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb192-5"><a href="anay_6800.html#cb192-5" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb192-6"><a href="anay_6800.html#cb192-6" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb192-7"><a href="anay_6800.html#cb192-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[apparent] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb192-8"><a href="anay_6800.html#cb192-8" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb192-9"><a href="anay_6800.html#cb192-9" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb192-10"><a href="anay_6800.html#cb192-10" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb192-11"><a href="anay_6800.html#cb192-11" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb192-12"><a href="anay_6800.html#cb192-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Deactivation&#39;</span>) <span class="sc">+</span></span>
<span id="cb192-13"><a href="anay_6800.html#cb192-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">75</span>),</span>
<span id="cb192-14"><a href="anay_6800.html#cb192-14" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">35</span>, <span class="dv">45</span>, <span class="dv">55</span>, <span class="dv">65</span>, <span class="dv">75</span>)) <span class="sc">+</span></span>
<span id="cb192-15"><a href="anay_6800.html#cb192-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb192-16"><a href="anay_6800.html#cb192-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb192-17"><a href="anay_6800.html#cb192-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>) <span class="sc">+</span></span>
<span id="cb192-18"><a href="anay_6800.html#cb192-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb192-19"><a href="anay_6800.html#cb192-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(<span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb192-20"><a href="anay_6800.html#cb192-20" aria-hidden="true" tabindex="-1"></a>        <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>())</span>
<span id="cb192-21"><a href="anay_6800.html#cb192-21" aria-hidden="true" tabindex="-1"></a>AappCi</span></code></pre></div>
<pre><code>## Warning: Removed 1321 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:aappdecci"></span>
<img src="bookdown_files/figure-html/aappdecci-1.png" alt="Rubisco 不同失活程度时 Aapp VS Ci" width="672" />
<p class="caption">
图 10.12: Rubisco 不同失活程度时 Aapp VS Ci
</p>
</div>
</div>
<div id="multi10" class="section level3" number="10.7.8">
<h3><span class="header-section-number">10.7.8</span> 不同失活程度下补偿点计算</h3>
<p>此部分内容同未失活状态相似，不在额外介绍，可参考 <a href="#gammastar"><strong>??</strong></a> 内容。</p>
<div class="sourceCode" id="cb194"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb194-1"><a href="anay_6800.html#cb194-1" aria-hidden="true" tabindex="-1"></a><span class="co">#Gamma</span></span>
<span id="cb194-2"><a href="anay_6800.html#cb194-2" aria-hidden="true" tabindex="-1"></a><span class="co"># For Ci-based estimates, only use Ci &lt; 100</span></span>
<span id="cb194-3"><a href="anay_6800.html#cb194-3" aria-hidden="true" tabindex="-1"></a>dataCi <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Cifull <span class="sc">&lt;</span> <span class="dv">100</span>, ]</span>
<span id="cb194-4"><a href="anay_6800.html#cb194-4" aria-hidden="true" tabindex="-1"></a>dataCinone <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;None&quot;</span>, ]</span>
<span id="cb194-5"><a href="anay_6800.html#cb194-5" aria-hidden="true" tabindex="-1"></a>dataCilow <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Low&quot;</span>, ]</span>
<span id="cb194-6"><a href="anay_6800.html#cb194-6" aria-hidden="true" tabindex="-1"></a>dataCimedium <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Medium&quot;</span>, ]</span>
<span id="cb194-7"><a href="anay_6800.html#cb194-7" aria-hidden="true" tabindex="-1"></a>dataCihigh <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;High&quot;</span>, ]</span>
<span id="cb194-8"><a href="anay_6800.html#cb194-8" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCinone<span class="sc">$</span>Anet <span class="sc">~</span> dataCinone<span class="sc">$</span>Cifull)</span>
<span id="cb194-9"><a href="anay_6800.html#cb194-9" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCinone$Anet ~ dataCinone$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13165 -0.04518  0.01711  0.05408  0.06699 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -7.2248105  0.0199353  -362.4   &lt;2e-16 ***
## dataCinone$Cifull  0.1228632  0.0003089   397.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06081 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.582e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb196"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb196-1"><a href="anay_6800.html#cb196-1" aria-hidden="true" tabindex="-1"></a>Gammanone <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb196-2"><a href="anay_6800.html#cb196-2" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCilow<span class="sc">$</span>Anet <span class="sc">~</span> dataCilow<span class="sc">$</span>Cifull)</span>
<span id="cb196-3"><a href="anay_6800.html#cb196-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCilow$Anet ~ dataCilow$Cifull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.034896 -0.011957  0.004499  0.014311  0.017726 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -6.444e+00  5.343e-03   -1206   &lt;2e-16 ***
## dataCilow$Cifull  1.049e-01  8.341e-05    1258   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.01609 on 69 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:      1 
## F-statistic: 1.582e+06 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb198"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb198-1"><a href="anay_6800.html#cb198-1" aria-hidden="true" tabindex="-1"></a>Gammalow <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb198-2"><a href="anay_6800.html#cb198-2" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCimedium<span class="sc">$</span>Anet <span class="sc">~</span> dataCimedium<span class="sc">$</span>Cifull)</span>
<span id="cb198-3"><a href="anay_6800.html#cb198-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCimedium$Anet ~ dataCimedium$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09168 -0.07338 -0.02281  0.05893  0.18150 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         -4.8015337  0.0277371  -173.1   &lt;2e-16 ***
## dataCimedium$Cifull  0.0671064  0.0004311   155.7   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0832 on 71 degrees of freedom
## Multiple R-squared:  0.9971, Adjusted R-squared:  0.997 
## F-statistic: 2.423e+04 on 1 and 71 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb200"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb200-1"><a href="anay_6800.html#cb200-1" aria-hidden="true" tabindex="-1"></a>Gammamedium <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb200-2"><a href="anay_6800.html#cb200-2" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCihigh<span class="sc">$</span>Anet <span class="sc">~</span> dataCihigh<span class="sc">$</span>Cifull)</span>
<span id="cb200-3"><a href="anay_6800.html#cb200-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCihigh$Anet ~ dataCihigh$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15430 -0.12508 -0.03863  0.10156  0.30621 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -3.9450658  0.0467537  -84.38   &lt;2e-16 ***
## dataCihigh$Cifull  0.0473551  0.0007255   65.27   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.1399 on 72 degrees of freedom
## Multiple R-squared:  0.9834, Adjusted R-squared:  0.9831 
## F-statistic:  4260 on 1 and 72 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb202"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb202-1"><a href="anay_6800.html#cb202-1" aria-hidden="true" tabindex="-1"></a>Gammahigh <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb202-2"><a href="anay_6800.html#cb202-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb202-3"><a href="anay_6800.html#cb202-3" aria-hidden="true" tabindex="-1"></a>GammaCi <span class="ot">&lt;-</span> <span class="fu">c</span>(Gammanone, Gammalow, Gammamedium, Gammahigh)</span>
<span id="cb202-4"><a href="anay_6800.html#cb202-4" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb202-5"><a href="anay_6800.html#cb202-5" aria-hidden="true" tabindex="-1"></a><span class="co"># For Cc-based estimates, only use Cc &lt; 75</span></span>
<span id="cb202-6"><a href="anay_6800.html#cb202-6" aria-hidden="true" tabindex="-1"></a>dataCc <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Ccfull <span class="sc">&lt;</span> <span class="dv">75</span>, ]</span>
<span id="cb202-7"><a href="anay_6800.html#cb202-7" aria-hidden="true" tabindex="-1"></a>dataCcnone <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;None&quot;</span>, ]</span>
<span id="cb202-8"><a href="anay_6800.html#cb202-8" aria-hidden="true" tabindex="-1"></a>dataCclow <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Low&quot;</span>, ]</span>
<span id="cb202-9"><a href="anay_6800.html#cb202-9" aria-hidden="true" tabindex="-1"></a>dataCcmedium <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Medium&quot;</span>, ]</span>
<span id="cb202-10"><a href="anay_6800.html#cb202-10" aria-hidden="true" tabindex="-1"></a>dataCchigh <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;High&quot;</span>, ]</span>
<span id="cb202-11"><a href="anay_6800.html#cb202-11" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCcnone<span class="sc">$</span>Anet <span class="sc">~</span> dataCcnone<span class="sc">$</span>Ccfull)</span>
<span id="cb202-12"><a href="anay_6800.html#cb202-12" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCcnone$Anet ~ dataCcnone$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075648 -0.025444  0.009857  0.031706  0.039431 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -8.4062011  0.0181852  -462.3   &lt;2e-16 ***
## dataCcnone$Ccfull  0.1438710  0.0003527   407.9   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03599 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.664e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb204"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb204-1"><a href="anay_6800.html#cb204-1" aria-hidden="true" tabindex="-1"></a>Gammanone <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb204-2"><a href="anay_6800.html#cb204-2" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCclow<span class="sc">$</span>Anet <span class="sc">~</span> dataCclow<span class="sc">$</span>Ccfull)</span>
<span id="cb204-3"><a href="anay_6800.html#cb204-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCclow$Anet ~ dataCclow$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.019617 -0.006598  0.002556  0.008222  0.010225 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -7.243e+00  4.716e-03   -1536   &lt;2e-16 ***
## dataCclow$Ccfull  1.182e-01  9.146e-05    1292   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.009333 on 48 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:      1 
## F-statistic: 1.67e+06 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb206"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb206-1"><a href="anay_6800.html#cb206-1" aria-hidden="true" tabindex="-1"></a>Gammalow <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb206-2"><a href="anay_6800.html#cb206-2" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCcmedium<span class="sc">$</span>Anet <span class="sc">~</span> dataCcmedium<span class="sc">$</span>Ccfull)</span>
<span id="cb206-3"><a href="anay_6800.html#cb206-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCcmedium$Anet ~ dataCcmedium$Ccfull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.04819 -0.03875 -0.01205  0.03109  0.09244 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         -4.917283   0.022223  -221.3   &lt;2e-16 ***
## dataCcmedium$Ccfull  0.066832   0.000431   155.1   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.04398 on 48 degrees of freedom
## Multiple R-squared:  0.998,  Adjusted R-squared:  0.998 
## F-statistic: 2.404e+04 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb208"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb208-1"><a href="anay_6800.html#cb208-1" aria-hidden="true" tabindex="-1"></a>Gammamedium <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb208-2"><a href="anay_6800.html#cb208-2" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCchigh<span class="sc">$</span>Anet <span class="sc">~</span> dataCchigh<span class="sc">$</span>Ccfull)</span>
<span id="cb208-3"><a href="anay_6800.html#cb208-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCchigh$Anet ~ dataCchigh$Ccfull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.07739 -0.06223 -0.01935  0.04994  0.14847 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -3.7543099  0.0356922 -105.19   &lt;2e-16 ***
## dataCchigh$Ccfull  0.0411528  0.0006922   59.45   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.07064 on 48 degrees of freedom
## Multiple R-squared:  0.9866, Adjusted R-squared:  0.9863 
## F-statistic:  3534 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb210"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb210-1"><a href="anay_6800.html#cb210-1" aria-hidden="true" tabindex="-1"></a>Gammahigh <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb210-2"><a href="anay_6800.html#cb210-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb210-3"><a href="anay_6800.html#cb210-3" aria-hidden="true" tabindex="-1"></a>GammaCc <span class="ot">&lt;-</span> <span class="fu">c</span>(Gammanone, Gammalow, Gammamedium, Gammahigh)</span>
<span id="cb210-4"><a href="anay_6800.html#cb210-4" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb210-5"><a href="anay_6800.html#cb210-5" aria-hidden="true" tabindex="-1"></a><span class="co">#GammaStar</span></span>
<span id="cb210-6"><a href="anay_6800.html#cb210-6" aria-hidden="true" tabindex="-1"></a><span class="co"># For Ci-based estimates, only use Ci &lt; 100</span></span>
<span id="cb210-7"><a href="anay_6800.html#cb210-7" aria-hidden="true" tabindex="-1"></a>dataCi <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Cifull <span class="sc">&lt;</span> <span class="dv">100</span>, ]</span>
<span id="cb210-8"><a href="anay_6800.html#cb210-8" aria-hidden="true" tabindex="-1"></a>dataCinone <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;None&quot;</span>, ]</span>
<span id="cb210-9"><a href="anay_6800.html#cb210-9" aria-hidden="true" tabindex="-1"></a>dataCilow <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Low&quot;</span>, ]</span>
<span id="cb210-10"><a href="anay_6800.html#cb210-10" aria-hidden="true" tabindex="-1"></a>dataCimedium <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Medium&quot;</span>, ]</span>
<span id="cb210-11"><a href="anay_6800.html#cb210-11" aria-hidden="true" tabindex="-1"></a>dataCihigh <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;High&quot;</span>, ]</span>
<span id="cb210-12"><a href="anay_6800.html#cb210-12" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCinone<span class="sc">$</span>Aapp <span class="sc">~</span> dataCinone<span class="sc">$</span>Cifull)</span>
<span id="cb210-13"><a href="anay_6800.html#cb210-13" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCinone$Aapp ~ dataCinone$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13165 -0.04518  0.01711  0.05408  0.06699 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -5.2248105  0.0199353  -262.1   &lt;2e-16 ***
## dataCinone$Cifull  0.1228632  0.0003089   397.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06081 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.582e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb212"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb212-1"><a href="anay_6800.html#cb212-1" aria-hidden="true" tabindex="-1"></a>Gammastarnone <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb212-2"><a href="anay_6800.html#cb212-2" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCilow<span class="sc">$</span>Aapp <span class="sc">~</span> dataCilow<span class="sc">$</span>Cifull)</span>
<span id="cb212-3"><a href="anay_6800.html#cb212-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCilow$Aapp ~ dataCilow$Cifull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.034896 -0.011957  0.004499  0.014311  0.017726 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -4.444e+00  5.343e-03  -831.7   &lt;2e-16 ***
## dataCilow$Cifull  1.049e-01  8.341e-05  1257.8   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.01609 on 69 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:      1 
## F-statistic: 1.582e+06 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb214"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb214-1"><a href="anay_6800.html#cb214-1" aria-hidden="true" tabindex="-1"></a>Gammastarlow <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb214-2"><a href="anay_6800.html#cb214-2" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCimedium<span class="sc">$</span>Aapp <span class="sc">~</span> dataCimedium<span class="sc">$</span>Cifull)</span>
<span id="cb214-3"><a href="anay_6800.html#cb214-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCimedium$Aapp ~ dataCimedium$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09168 -0.07338 -0.02281  0.05893  0.18150 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         -2.8015337  0.0277371  -101.0   &lt;2e-16 ***
## dataCimedium$Cifull  0.0671064  0.0004311   155.7   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.0832 on 71 degrees of freedom
## Multiple R-squared:  0.9971, Adjusted R-squared:  0.997 
## F-statistic: 2.423e+04 on 1 and 71 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb216"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb216-1"><a href="anay_6800.html#cb216-1" aria-hidden="true" tabindex="-1"></a>Gammastarmedium <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb216-2"><a href="anay_6800.html#cb216-2" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCihigh<span class="sc">$</span>Aapp <span class="sc">~</span> dataCihigh<span class="sc">$</span>Cifull)</span>
<span id="cb216-3"><a href="anay_6800.html#cb216-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCihigh$Aapp ~ dataCihigh$Cifull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15430 -0.12508 -0.03863  0.10156  0.30621 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -1.9450658  0.0467537  -41.60   &lt;2e-16 ***
## dataCihigh$Cifull  0.0473551  0.0007255   65.27   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.1399 on 72 degrees of freedom
## Multiple R-squared:  0.9834, Adjusted R-squared:  0.9831 
## F-statistic:  4260 on 1 and 72 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb218"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb218-1"><a href="anay_6800.html#cb218-1" aria-hidden="true" tabindex="-1"></a>Gammastarhigh <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb218-2"><a href="anay_6800.html#cb218-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb218-3"><a href="anay_6800.html#cb218-3" aria-hidden="true" tabindex="-1"></a>GammastarCi <span class="ot">&lt;-</span></span>
<span id="cb218-4"><a href="anay_6800.html#cb218-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(Gammastarnone, Gammastarlow, Gammastarmedium, Gammastarhigh)</span>
<span id="cb218-5"><a href="anay_6800.html#cb218-5" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb218-6"><a href="anay_6800.html#cb218-6" aria-hidden="true" tabindex="-1"></a><span class="co"># For Cc-based estimates, only use Cc &lt; 75</span></span>
<span id="cb218-7"><a href="anay_6800.html#cb218-7" aria-hidden="true" tabindex="-1"></a>dataCc <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Ccfull <span class="sc">&lt;</span> <span class="dv">75</span>, ]</span>
<span id="cb218-8"><a href="anay_6800.html#cb218-8" aria-hidden="true" tabindex="-1"></a>dataCcnone <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;None&quot;</span>, ]</span>
<span id="cb218-9"><a href="anay_6800.html#cb218-9" aria-hidden="true" tabindex="-1"></a>dataCclow <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Low&quot;</span>, ]</span>
<span id="cb218-10"><a href="anay_6800.html#cb218-10" aria-hidden="true" tabindex="-1"></a>dataCcmedium <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;Medium&quot;</span>, ]</span>
<span id="cb218-11"><a href="anay_6800.html#cb218-11" aria-hidden="true" tabindex="-1"></a>dataCchigh <span class="ot">&lt;-</span> dataCc[dataCc<span class="sc">$</span>Deactivation <span class="sc">==</span> <span class="st">&quot;High&quot;</span>, ]</span>
<span id="cb218-12"><a href="anay_6800.html#cb218-12" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCcnone<span class="sc">$</span>Aapp <span class="sc">~</span> dataCcnone<span class="sc">$</span>Ccfull)</span>
<span id="cb218-13"><a href="anay_6800.html#cb218-13" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCcnone$Aapp ~ dataCcnone$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075648 -0.025444  0.009857  0.031706  0.039431 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -6.4062011  0.0181852  -352.3   &lt;2e-16 ***
## dataCcnone$Ccfull  0.1438710  0.0003527   407.9   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03599 on 48 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 1.664e+05 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb220"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb220-1"><a href="anay_6800.html#cb220-1" aria-hidden="true" tabindex="-1"></a>Gammastarnone <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb220-2"><a href="anay_6800.html#cb220-2" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCclow<span class="sc">$</span>Aapp <span class="sc">~</span> dataCclow<span class="sc">$</span>Ccfull)</span>
<span id="cb220-3"><a href="anay_6800.html#cb220-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCclow$Aapp ~ dataCclow$Ccfull)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.019617 -0.006598  0.002556  0.008222  0.010225 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)      -5.243e+00  4.716e-03   -1112   &lt;2e-16 ***
## dataCclow$Ccfull  1.182e-01  9.146e-05    1292   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.009333 on 48 degrees of freedom
## Multiple R-squared:      1,  Adjusted R-squared:      1 
## F-statistic: 1.67e+06 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb222"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb222-1"><a href="anay_6800.html#cb222-1" aria-hidden="true" tabindex="-1"></a>Gammastarlow <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb222-2"><a href="anay_6800.html#cb222-2" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCcmedium<span class="sc">$</span>Aapp <span class="sc">~</span> dataCcmedium<span class="sc">$</span>Ccfull)</span>
<span id="cb222-3"><a href="anay_6800.html#cb222-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCcmedium$Aapp ~ dataCcmedium$Ccfull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.04819 -0.03875 -0.01205  0.03109  0.09244 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         -2.917283   0.022223  -131.3   &lt;2e-16 ***
## dataCcmedium$Ccfull  0.066832   0.000431   155.1   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.04398 on 48 degrees of freedom
## Multiple R-squared:  0.998,  Adjusted R-squared:  0.998 
## F-statistic: 2.404e+04 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb224"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb224-1"><a href="anay_6800.html#cb224-1" aria-hidden="true" tabindex="-1"></a>Gammastarmedium <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb224-2"><a href="anay_6800.html#cb224-2" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCchigh<span class="sc">$</span>Aapp <span class="sc">~</span> dataCchigh<span class="sc">$</span>Ccfull)</span>
<span id="cb224-3"><a href="anay_6800.html#cb224-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCchigh$Aapp ~ dataCchigh$Ccfull)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.07739 -0.06223 -0.01935  0.04994  0.14847 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)       -1.7543099  0.0356922  -49.15   &lt;2e-16 ***
## dataCchigh$Ccfull  0.0411528  0.0006922   59.45   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.07064 on 48 degrees of freedom
## Multiple R-squared:  0.9866, Adjusted R-squared:  0.9863 
## F-statistic:  3534 on 1 and 48 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb226"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb226-1"><a href="anay_6800.html#cb226-1" aria-hidden="true" tabindex="-1"></a>Gammastarhigh <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb226-2"><a href="anay_6800.html#cb226-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb226-3"><a href="anay_6800.html#cb226-3" aria-hidden="true" tabindex="-1"></a>GammastarCc <span class="ot">&lt;-</span></span>
<span id="cb226-4"><a href="anay_6800.html#cb226-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(Gammastarnone, Gammastarlow, Gammastarmedium, Gammastarhigh)</span>
<span id="cb226-5"><a href="anay_6800.html#cb226-5" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb226-6"><a href="anay_6800.html#cb226-6" aria-hidden="true" tabindex="-1"></a>Deactivation2 <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="st">&quot;None&quot;</span>, <span class="st">&quot;Low&quot;</span>, <span class="st">&quot;Medium&quot;</span>, <span class="st">&quot;High&quot;</span>)</span>
<span id="cb226-7"><a href="anay_6800.html#cb226-7" aria-hidden="true" tabindex="-1"></a>RAScomps <span class="ot">&lt;-</span></span>
<span id="cb226-8"><a href="anay_6800.html#cb226-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.data.frame</span>(<span class="fu">cbind</span>(Deactivation2, GammaCc, GammaCi, GammastarCc, GammastarCi))</span>
<span id="cb226-9"><a href="anay_6800.html#cb226-9" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(RAScomps, <span class="st">&quot;./data/RAScomps.csv&quot;</span>)</span></code></pre></div>
</div>
</div>
<div id="multi11" class="section level2" number="10.8">
<h2><span class="header-section-number">10.8</span> 时间延迟的扩散限制</h2>
<p>对于扩散限制，下面的内容比较了多速率 RACiR 和标准 ACi 曲线的差别，比较实在有光呼吸和没有光呼吸的两种情况。对于没有扩散限制的表观光合速，采用了已知质量的碱石灰药品，放置于 1.7 ml 的微量离心管内，然后将其置于荧光叶室内部模拟叶片，此时叶室环境控制与其他实验不同，此时不再控制 H2OR。RACiR 测试从 500 到 0 的变化，不同样品的测量是随机的。</p>
<p>下面内容采用了一定的假设，来计算扩散的时间。</p>
<div class="sourceCode" id="cb227"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb227-1"><a href="anay_6800.html#cb227-1" aria-hidden="true" tabindex="-1"></a><span class="co">#Equations from Campbell &amp; Norman, 1998</span></span>
<span id="cb227-2"><a href="anay_6800.html#cb227-2" aria-hidden="true" tabindex="-1"></a><span class="co">#We are taking a simple approach to calculating diffusion times.</span></span>
<span id="cb227-3"><a href="anay_6800.html#cb227-3" aria-hidden="true" tabindex="-1"></a><span class="co">#Here we make the simplifying assumption that diffusion is pure, planar</span></span>
<span id="cb227-4"><a href="anay_6800.html#cb227-4" aria-hidden="true" tabindex="-1"></a><span class="co">#Diffusion, such that:</span></span>
<span id="cb227-5"><a href="anay_6800.html#cb227-5" aria-hidden="true" tabindex="-1"></a><span class="co">#gtot = phat * D / deltaZ</span></span>
<span id="cb227-6"><a href="anay_6800.html#cb227-6" aria-hidden="true" tabindex="-1"></a><span class="co">#where gtot is total conductance, phat is molar density of air in mol /m^3,</span></span>
<span id="cb227-7"><a href="anay_6800.html#cb227-7" aria-hidden="true" tabindex="-1"></a><span class="co">#D is diffusion coefficient in m2/s, deltaZ is pathlength in m</span></span>
<span id="cb227-8"><a href="anay_6800.html#cb227-8" aria-hidden="true" tabindex="-1"></a><span class="co">#Since PV = NRT, N/V = P/RT</span></span>
<span id="cb227-9"><a href="anay_6800.html#cb227-9" aria-hidden="true" tabindex="-1"></a><span class="co">#T in K, R in J K-1 mol-1, P in Pa</span></span>
<span id="cb227-10"><a href="anay_6800.html#cb227-10" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-11"><a href="anay_6800.html#cb227-11" aria-hidden="true" tabindex="-1"></a><span class="co">#phat = Patm/(RT)</span></span>
<span id="cb227-12"><a href="anay_6800.html#cb227-12" aria-hidden="true" tabindex="-1"></a>phat <span class="ot">=</span> <span class="dv">100000</span> <span class="sc">/</span> (<span class="fl">8.314</span> <span class="sc">*</span> <span class="fl">298.15</span>)</span>
<span id="cb227-13"><a href="anay_6800.html#cb227-13" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-14"><a href="anay_6800.html#cb227-14" aria-hidden="true" tabindex="-1"></a><span class="co">#We also assume a linear pathlength</span></span>
<span id="cb227-15"><a href="anay_6800.html#cb227-15" aria-hidden="true" tabindex="-1"></a><span class="co">#Note, if diffusion is nonlinear or nonplanar, it will affect the value determined</span></span>
<span id="cb227-16"><a href="anay_6800.html#cb227-16" aria-hidden="true" tabindex="-1"></a><span class="co">#for D from this equation.</span></span>
<span id="cb227-17"><a href="anay_6800.html#cb227-17" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-18"><a href="anay_6800.html#cb227-18" aria-hidden="true" tabindex="-1"></a><span class="co">#D = gtot * deltaZ / phat</span></span>
<span id="cb227-19"><a href="anay_6800.html#cb227-19" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-20"><a href="anay_6800.html#cb227-20" aria-hidden="true" tabindex="-1"></a><span class="co">#Diffusion time, t, varies with D and deltaZ such that:</span></span>
<span id="cb227-21"><a href="anay_6800.html#cb227-21" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-22"><a href="anay_6800.html#cb227-22" aria-hidden="true" tabindex="-1"></a><span class="co">#t = (deltaZ)^2 / D</span></span>
<span id="cb227-23"><a href="anay_6800.html#cb227-23" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-24"><a href="anay_6800.html#cb227-24" aria-hidden="true" tabindex="-1"></a><span class="co">#So</span></span>
<span id="cb227-25"><a href="anay_6800.html#cb227-25" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-26"><a href="anay_6800.html#cb227-26" aria-hidden="true" tabindex="-1"></a><span class="co">#t = (deltaZ)^2 / (gtot * deltaZ / phat)</span></span>
<span id="cb227-27"><a href="anay_6800.html#cb227-27" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-28"><a href="anay_6800.html#cb227-28" aria-hidden="true" tabindex="-1"></a><span class="co">#If we assume mean diffusion pathlength of 1/2 lamina thickness,</span></span>
<span id="cb227-29"><a href="anay_6800.html#cb227-29" aria-hidden="true" tabindex="-1"></a><span class="co">#then Onoda et al. 2011 lamina thicknesses of: median 0.22 mm (0.11 to 0.74 for 95% CI)</span></span>
<span id="cb227-30"><a href="anay_6800.html#cb227-30" aria-hidden="true" tabindex="-1"></a><span class="co">#becomes 0.11 mm (0.055 to 0.37) for estimated deltaZ</span></span>
<span id="cb227-31"><a href="anay_6800.html#cb227-31" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb227-32"><a href="anay_6800.html#cb227-32" aria-hidden="true" tabindex="-1"></a><span class="co">#Convert pathlength to m</span></span>
<span id="cb227-33"><a href="anay_6800.html#cb227-33" aria-hidden="true" tabindex="-1"></a>dZlow <span class="ot">&lt;-</span> <span class="fl">0.055</span> <span class="sc">/</span> <span class="dv">1000</span></span>
<span id="cb227-34"><a href="anay_6800.html#cb227-34" aria-hidden="true" tabindex="-1"></a>dZmedian <span class="ot">&lt;-</span> <span class="fl">0.11</span> <span class="sc">/</span> <span class="dv">1000</span></span>
<span id="cb227-35"><a href="anay_6800.html#cb227-35" aria-hidden="true" tabindex="-1"></a>dZhigh <span class="ot">&lt;-</span> <span class="fl">0.37</span> <span class="sc">/</span> <span class="dv">1000</span></span></code></pre></div>
<p>下面的内容是对边界层导度和气孔导度等赋值，由此而计算出其他所需要的参数：</p>
<div class="sourceCode" id="cb228"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb228-1"><a href="anay_6800.html#cb228-1" aria-hidden="true" tabindex="-1"></a><span class="co">#Mesophyll Conductance</span></span>
<span id="cb228-2"><a href="anay_6800.html#cb228-2" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="dv">2</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-3"><a href="anay_6800.html#cb228-3" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.4</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-4"><a href="anay_6800.html#cb228-4" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-5"><a href="anay_6800.html#cb228-5" aria-hidden="true" tabindex="-1"></a><span class="co"># 无限制的叶肉导度，并以此计算ci等</span></span>
<span id="cb228-6"><a href="anay_6800.html#cb228-6" aria-hidden="true" tabindex="-1"></a>gm1 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-7"><a href="anay_6800.html#cb228-7" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm1 <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-8"><a href="anay_6800.html#cb228-8" aria-hidden="true" tabindex="-1"></a>Cim1 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-9"><a href="anay_6800.html#cb228-9" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-10"><a href="anay_6800.html#cb228-10" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-11"><a href="anay_6800.html#cb228-11" aria-hidden="true" tabindex="-1"></a><span class="co">#根据斜率计算达到 100 ppm min-1 时记录数据的个数</span></span>
<span id="cb228-12"><a href="anay_6800.html#cb228-12" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-13"><a href="anay_6800.html#cb228-13" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-14"><a href="anay_6800.html#cb228-14" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] </span>
<span id="cb228-15"><a href="anay_6800.html#cb228-15" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-16"><a href="anay_6800.html#cb228-16" aria-hidden="true" tabindex="-1"></a><span class="co">#计算ci，Cc等达到100ppm min-1 时数据的个数</span></span>
<span id="cb228-17"><a href="anay_6800.html#cb228-17" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-18"><a href="anay_6800.html#cb228-18" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-19"><a href="anay_6800.html#cb228-19" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-20"><a href="anay_6800.html#cb228-20" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-21"><a href="anay_6800.html#cb228-21" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-22"><a href="anay_6800.html#cb228-22" aria-hidden="true" tabindex="-1"></a>RateCc1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-23"><a href="anay_6800.html#cb228-23" aria-hidden="true" tabindex="-1"></a><span class="co">#总的阻力</span></span>
<span id="cb228-24"><a href="anay_6800.html#cb228-24" aria-hidden="true" tabindex="-1"></a>res1 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm1 <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-25"><a href="anay_6800.html#cb228-25" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-26"><a href="anay_6800.html#cb228-26" aria-hidden="true" tabindex="-1"></a><span class="co">#不同的叶肉导度计算其他参数</span></span>
<span id="cb228-27"><a href="anay_6800.html#cb228-27" aria-hidden="true" tabindex="-1"></a>gm2 <span class="ot">&lt;-</span> <span class="dv">2</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-28"><a href="anay_6800.html#cb228-28" aria-hidden="true" tabindex="-1"></a>Ci2 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm2 <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-29"><a href="anay_6800.html#cb228-29" aria-hidden="true" tabindex="-1"></a>Cim2 <span class="ot">&lt;-</span> Ci2</span>
<span id="cb228-30"><a href="anay_6800.html#cb228-30" aria-hidden="true" tabindex="-1"></a>Cb2 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci2 <span class="co">#umol mol-1</span></span>
<span id="cb228-31"><a href="anay_6800.html#cb228-31" aria-hidden="true" tabindex="-1"></a>Cr2 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb2 <span class="co">#umol mol-1</span></span>
<span id="cb228-32"><a href="anay_6800.html#cb228-32" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-33"><a href="anay_6800.html#cb228-33" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr2 <span class="sc">~</span> Counter)</span>
<span id="cb228-34"><a href="anay_6800.html#cb228-34" aria-hidden="true" tabindex="-1"></a>x2 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] </span>
<span id="cb228-35"><a href="anay_6800.html#cb228-35" aria-hidden="true" tabindex="-1"></a>RateCr2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x2 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-36"><a href="anay_6800.html#cb228-36" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb2 <span class="sc">~</span> Counter)</span>
<span id="cb228-37"><a href="anay_6800.html#cb228-37" aria-hidden="true" tabindex="-1"></a>RateCb2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x2 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-38"><a href="anay_6800.html#cb228-38" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci2 <span class="sc">~</span> Counter)</span>
<span id="cb228-39"><a href="anay_6800.html#cb228-39" aria-hidden="true" tabindex="-1"></a>RateCi2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x2 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-40"><a href="anay_6800.html#cb228-40" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-41"><a href="anay_6800.html#cb228-41" aria-hidden="true" tabindex="-1"></a>RateCc2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x2 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-42"><a href="anay_6800.html#cb228-42" aria-hidden="true" tabindex="-1"></a>res2 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm2 <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-43"><a href="anay_6800.html#cb228-43" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-44"><a href="anay_6800.html#cb228-44" aria-hidden="true" tabindex="-1"></a><span class="co">#再次计算不同导度下的数值</span></span>
<span id="cb228-45"><a href="anay_6800.html#cb228-45" aria-hidden="true" tabindex="-1"></a>gm4 <span class="ot">&lt;-</span> <span class="dv">4</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-46"><a href="anay_6800.html#cb228-46" aria-hidden="true" tabindex="-1"></a>Ci4 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm4 <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-47"><a href="anay_6800.html#cb228-47" aria-hidden="true" tabindex="-1"></a>Cim4 <span class="ot">&lt;-</span> Ci4</span>
<span id="cb228-48"><a href="anay_6800.html#cb228-48" aria-hidden="true" tabindex="-1"></a>Cb4 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci4 <span class="co">#umol mol-1</span></span>
<span id="cb228-49"><a href="anay_6800.html#cb228-49" aria-hidden="true" tabindex="-1"></a>Cr4 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb4 <span class="co">#umol mol-1</span></span>
<span id="cb228-50"><a href="anay_6800.html#cb228-50" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-51"><a href="anay_6800.html#cb228-51" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr4 <span class="sc">~</span> Counter)</span>
<span id="cb228-52"><a href="anay_6800.html#cb228-52" aria-hidden="true" tabindex="-1"></a>x4 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-53"><a href="anay_6800.html#cb228-53" aria-hidden="true" tabindex="-1"></a>RateCr4 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x4 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-54"><a href="anay_6800.html#cb228-54" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb4 <span class="sc">~</span> Counter)</span>
<span id="cb228-55"><a href="anay_6800.html#cb228-55" aria-hidden="true" tabindex="-1"></a>RateCb4 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x4 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-56"><a href="anay_6800.html#cb228-56" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci4 <span class="sc">~</span> Counter)</span>
<span id="cb228-57"><a href="anay_6800.html#cb228-57" aria-hidden="true" tabindex="-1"></a>RateCi4 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x4 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-58"><a href="anay_6800.html#cb228-58" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-59"><a href="anay_6800.html#cb228-59" aria-hidden="true" tabindex="-1"></a>RateCc4 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x4 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-60"><a href="anay_6800.html#cb228-60" aria-hidden="true" tabindex="-1"></a>res4 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm4 <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-61"><a href="anay_6800.html#cb228-61" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-62"><a href="anay_6800.html#cb228-62" aria-hidden="true" tabindex="-1"></a><span class="co">#再次计算不同导度下的数值</span></span>
<span id="cb228-63"><a href="anay_6800.html#cb228-63" aria-hidden="true" tabindex="-1"></a>gm05 <span class="ot">&lt;-</span> <span class="fl">0.5</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-64"><a href="anay_6800.html#cb228-64" aria-hidden="true" tabindex="-1"></a>Ci05 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm05 <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-65"><a href="anay_6800.html#cb228-65" aria-hidden="true" tabindex="-1"></a>Cim05 <span class="ot">&lt;-</span> Ci05</span>
<span id="cb228-66"><a href="anay_6800.html#cb228-66" aria-hidden="true" tabindex="-1"></a>Cb05 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci05 <span class="co">#umol mol-1</span></span>
<span id="cb228-67"><a href="anay_6800.html#cb228-67" aria-hidden="true" tabindex="-1"></a>Cr05 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb05 <span class="co">#umol mol-1</span></span>
<span id="cb228-68"><a href="anay_6800.html#cb228-68" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-69"><a href="anay_6800.html#cb228-69" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr05 <span class="sc">~</span> Counter)</span>
<span id="cb228-70"><a href="anay_6800.html#cb228-70" aria-hidden="true" tabindex="-1"></a>x05 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-71"><a href="anay_6800.html#cb228-71" aria-hidden="true" tabindex="-1"></a>RateCr05 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x05 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-72"><a href="anay_6800.html#cb228-72" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb05 <span class="sc">~</span> Counter)</span>
<span id="cb228-73"><a href="anay_6800.html#cb228-73" aria-hidden="true" tabindex="-1"></a>RateCb05 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x05 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-74"><a href="anay_6800.html#cb228-74" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci05 <span class="sc">~</span> Counter)</span>
<span id="cb228-75"><a href="anay_6800.html#cb228-75" aria-hidden="true" tabindex="-1"></a>RateCi05 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x05 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-76"><a href="anay_6800.html#cb228-76" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-77"><a href="anay_6800.html#cb228-77" aria-hidden="true" tabindex="-1"></a>RateCc05 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x05 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-78"><a href="anay_6800.html#cb228-78" aria-hidden="true" tabindex="-1"></a>res05 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm05 <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-79"><a href="anay_6800.html#cb228-79" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-80"><a href="anay_6800.html#cb228-80" aria-hidden="true" tabindex="-1"></a><span class="co">#正常的叶肉导度数据计算其他参数</span></span>
<span id="cb228-81"><a href="anay_6800.html#cb228-81" aria-hidden="true" tabindex="-1"></a>gm025 <span class="ot">&lt;-</span> <span class="fl">0.25</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-82"><a href="anay_6800.html#cb228-82" aria-hidden="true" tabindex="-1"></a>Ci025 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm025 <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-83"><a href="anay_6800.html#cb228-83" aria-hidden="true" tabindex="-1"></a>Cim025 <span class="ot">&lt;-</span> Ci025</span>
<span id="cb228-84"><a href="anay_6800.html#cb228-84" aria-hidden="true" tabindex="-1"></a>Cb025 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci025 <span class="co">#umol mol-1</span></span>
<span id="cb228-85"><a href="anay_6800.html#cb228-85" aria-hidden="true" tabindex="-1"></a>Cr025 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb025 <span class="co">#umol mol-1</span></span>
<span id="cb228-86"><a href="anay_6800.html#cb228-86" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-87"><a href="anay_6800.html#cb228-87" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr025 <span class="sc">~</span> Counter)</span>
<span id="cb228-88"><a href="anay_6800.html#cb228-88" aria-hidden="true" tabindex="-1"></a>x025 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-89"><a href="anay_6800.html#cb228-89" aria-hidden="true" tabindex="-1"></a>RateCr025 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x025 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-90"><a href="anay_6800.html#cb228-90" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb025 <span class="sc">~</span> Counter)</span>
<span id="cb228-91"><a href="anay_6800.html#cb228-91" aria-hidden="true" tabindex="-1"></a>RateCb025 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x025 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-92"><a href="anay_6800.html#cb228-92" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci025 <span class="sc">~</span> Counter)</span>
<span id="cb228-93"><a href="anay_6800.html#cb228-93" aria-hidden="true" tabindex="-1"></a>RateCi025 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x025 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-94"><a href="anay_6800.html#cb228-94" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-95"><a href="anay_6800.html#cb228-95" aria-hidden="true" tabindex="-1"></a>RateCc025 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x025 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-96"><a href="anay_6800.html#cb228-96" aria-hidden="true" tabindex="-1"></a>res025 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm025 <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-97"><a href="anay_6800.html#cb228-97" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-98"><a href="anay_6800.html#cb228-98" aria-hidden="true" tabindex="-1"></a><span class="co">#另一个正常的叶肉导度</span></span>
<span id="cb228-99"><a href="anay_6800.html#cb228-99" aria-hidden="true" tabindex="-1"></a>gm0125 <span class="ot">&lt;-</span> <span class="fl">0.125</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-100"><a href="anay_6800.html#cb228-100" aria-hidden="true" tabindex="-1"></a>Ci0125 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm0125 <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-101"><a href="anay_6800.html#cb228-101" aria-hidden="true" tabindex="-1"></a>Cim0125 <span class="ot">&lt;-</span> Ci0125</span>
<span id="cb228-102"><a href="anay_6800.html#cb228-102" aria-hidden="true" tabindex="-1"></a>Cb0125 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci0125 <span class="co">#umol mol-1</span></span>
<span id="cb228-103"><a href="anay_6800.html#cb228-103" aria-hidden="true" tabindex="-1"></a>Cr0125 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb0125 <span class="co">#umol mol-1</span></span>
<span id="cb228-104"><a href="anay_6800.html#cb228-104" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-105"><a href="anay_6800.html#cb228-105" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr0125 <span class="sc">~</span> Counter)</span>
<span id="cb228-106"><a href="anay_6800.html#cb228-106" aria-hidden="true" tabindex="-1"></a>x0125 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-107"><a href="anay_6800.html#cb228-107" aria-hidden="true" tabindex="-1"></a>RateCr0125 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x0125 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-108"><a href="anay_6800.html#cb228-108" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb0125 <span class="sc">~</span> Counter)</span>
<span id="cb228-109"><a href="anay_6800.html#cb228-109" aria-hidden="true" tabindex="-1"></a>RateCb0125 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x0125 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-110"><a href="anay_6800.html#cb228-110" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci0125 <span class="sc">~</span> Counter)</span>
<span id="cb228-111"><a href="anay_6800.html#cb228-111" aria-hidden="true" tabindex="-1"></a>RateCi0125 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x0125 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-112"><a href="anay_6800.html#cb228-112" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-113"><a href="anay_6800.html#cb228-113" aria-hidden="true" tabindex="-1"></a>RateCc0125 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x0125 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-114"><a href="anay_6800.html#cb228-114" aria-hidden="true" tabindex="-1"></a>res0125 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm0125 <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-115"><a href="anay_6800.html#cb228-115" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-116"><a href="anay_6800.html#cb228-116" aria-hidden="true" tabindex="-1"></a><span class="co">#利用不同叶肉导度的数据计算结果构造数据</span></span>
<span id="cb228-117"><a href="anay_6800.html#cb228-117" aria-hidden="true" tabindex="-1"></a>Ratesgm <span class="ot">&lt;-</span></span>
<span id="cb228-118"><a href="anay_6800.html#cb228-118" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(RateCc0125, RateCc025, RateCc05, RateCc1, RateCc2, RateCc4)</span>
<span id="cb228-119"><a href="anay_6800.html#cb228-119" aria-hidden="true" tabindex="-1"></a>gmval <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fl">0.125</span>, <span class="fl">0.25</span>, <span class="fl">0.5</span>, <span class="dv">1</span>, <span class="dv">2</span>, <span class="dv">4</span>)</span>
<span id="cb228-120"><a href="anay_6800.html#cb228-120" aria-hidden="true" tabindex="-1"></a>totalresgm <span class="ot">&lt;-</span> <span class="fu">c</span>(res0125, res025, res05, res1, res2, res4)</span>
<span id="cb228-121"><a href="anay_6800.html#cb228-121" aria-hidden="true" tabindex="-1"></a>resistance <span class="ot">&lt;-</span></span>
<span id="cb228-122"><a href="anay_6800.html#cb228-122" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb228-123"><a href="anay_6800.html#cb228-123" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(res0125, <span class="dv">376</span>),</span>
<span id="cb228-124"><a href="anay_6800.html#cb228-124" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(res025, <span class="dv">376</span>),</span>
<span id="cb228-125"><a href="anay_6800.html#cb228-125" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(res05, <span class="dv">376</span>),</span>
<span id="cb228-126"><a href="anay_6800.html#cb228-126" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(res1, <span class="dv">376</span>),</span>
<span id="cb228-127"><a href="anay_6800.html#cb228-127" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(res2, <span class="dv">376</span>),</span>
<span id="cb228-128"><a href="anay_6800.html#cb228-128" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(res4, <span class="dv">376</span>)</span>
<span id="cb228-129"><a href="anay_6800.html#cb228-129" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb228-130"><a href="anay_6800.html#cb228-130" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-131"><a href="anay_6800.html#cb228-131" aria-hidden="true" tabindex="-1"></a><span class="co">#其余部分与上面类似</span></span>
<span id="cb228-132"><a href="anay_6800.html#cb228-132" aria-hidden="true" tabindex="-1"></a><span class="co">#此时采用不同的气孔导度构建数据</span></span>
<span id="cb228-133"><a href="anay_6800.html#cb228-133" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="dv">2</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-134"><a href="anay_6800.html#cb228-134" aria-hidden="true" tabindex="-1"></a>gm <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-135"><a href="anay_6800.html#cb228-135" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-136"><a href="anay_6800.html#cb228-136" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.4</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-137"><a href="anay_6800.html#cb228-137" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-138"><a href="anay_6800.html#cb228-138" aria-hidden="true" tabindex="-1"></a>Cis04 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-139"><a href="anay_6800.html#cb228-139" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-140"><a href="anay_6800.html#cb228-140" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-141"><a href="anay_6800.html#cb228-141" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-142"><a href="anay_6800.html#cb228-142" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-143"><a href="anay_6800.html#cb228-143" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] </span>
<span id="cb228-144"><a href="anay_6800.html#cb228-144" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-145"><a href="anay_6800.html#cb228-145" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-146"><a href="anay_6800.html#cb228-146" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-147"><a href="anay_6800.html#cb228-147" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-148"><a href="anay_6800.html#cb228-148" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-149"><a href="anay_6800.html#cb228-149" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-150"><a href="anay_6800.html#cb228-150" aria-hidden="true" tabindex="-1"></a>RateCc04 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-151"><a href="anay_6800.html#cb228-151" aria-hidden="true" tabindex="-1"></a>res04 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-152"><a href="anay_6800.html#cb228-152" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-153"><a href="anay_6800.html#cb228-153" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.2</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-154"><a href="anay_6800.html#cb228-154" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-155"><a href="anay_6800.html#cb228-155" aria-hidden="true" tabindex="-1"></a>Cis02 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-156"><a href="anay_6800.html#cb228-156" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-157"><a href="anay_6800.html#cb228-157" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-158"><a href="anay_6800.html#cb228-158" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-159"><a href="anay_6800.html#cb228-159" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-160"><a href="anay_6800.html#cb228-160" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-161"><a href="anay_6800.html#cb228-161" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-162"><a href="anay_6800.html#cb228-162" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-163"><a href="anay_6800.html#cb228-163" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-164"><a href="anay_6800.html#cb228-164" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-165"><a href="anay_6800.html#cb228-165" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-166"><a href="anay_6800.html#cb228-166" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-167"><a href="anay_6800.html#cb228-167" aria-hidden="true" tabindex="-1"></a>RateCc02 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-168"><a href="anay_6800.html#cb228-168" aria-hidden="true" tabindex="-1"></a>res02 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-169"><a href="anay_6800.html#cb228-169" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-170"><a href="anay_6800.html#cb228-170" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.1</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-171"><a href="anay_6800.html#cb228-171" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-172"><a href="anay_6800.html#cb228-172" aria-hidden="true" tabindex="-1"></a>Cis01 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-173"><a href="anay_6800.html#cb228-173" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-174"><a href="anay_6800.html#cb228-174" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-175"><a href="anay_6800.html#cb228-175" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-176"><a href="anay_6800.html#cb228-176" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-177"><a href="anay_6800.html#cb228-177" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-178"><a href="anay_6800.html#cb228-178" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-179"><a href="anay_6800.html#cb228-179" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-180"><a href="anay_6800.html#cb228-180" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-181"><a href="anay_6800.html#cb228-181" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-182"><a href="anay_6800.html#cb228-182" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-183"><a href="anay_6800.html#cb228-183" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-184"><a href="anay_6800.html#cb228-184" aria-hidden="true" tabindex="-1"></a>RateCc01 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-185"><a href="anay_6800.html#cb228-185" aria-hidden="true" tabindex="-1"></a>res01 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-186"><a href="anay_6800.html#cb228-186" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-187"><a href="anay_6800.html#cb228-187" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.05</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-188"><a href="anay_6800.html#cb228-188" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-189"><a href="anay_6800.html#cb228-189" aria-hidden="true" tabindex="-1"></a>Cis05 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-190"><a href="anay_6800.html#cb228-190" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-191"><a href="anay_6800.html#cb228-191" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-192"><a href="anay_6800.html#cb228-192" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-193"><a href="anay_6800.html#cb228-193" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-194"><a href="anay_6800.html#cb228-194" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-195"><a href="anay_6800.html#cb228-195" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-196"><a href="anay_6800.html#cb228-196" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-197"><a href="anay_6800.html#cb228-197" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-198"><a href="anay_6800.html#cb228-198" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-199"><a href="anay_6800.html#cb228-199" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-200"><a href="anay_6800.html#cb228-200" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-201"><a href="anay_6800.html#cb228-201" aria-hidden="true" tabindex="-1"></a>RateCc005 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-202"><a href="anay_6800.html#cb228-202" aria-hidden="true" tabindex="-1"></a>res005 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-203"><a href="anay_6800.html#cb228-203" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-204"><a href="anay_6800.html#cb228-204" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.025</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-205"><a href="anay_6800.html#cb228-205" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-206"><a href="anay_6800.html#cb228-206" aria-hidden="true" tabindex="-1"></a>Cis0025 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-207"><a href="anay_6800.html#cb228-207" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-208"><a href="anay_6800.html#cb228-208" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-209"><a href="anay_6800.html#cb228-209" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-210"><a href="anay_6800.html#cb228-210" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-211"><a href="anay_6800.html#cb228-211" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-212"><a href="anay_6800.html#cb228-212" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-213"><a href="anay_6800.html#cb228-213" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-214"><a href="anay_6800.html#cb228-214" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-215"><a href="anay_6800.html#cb228-215" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-216"><a href="anay_6800.html#cb228-216" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-217"><a href="anay_6800.html#cb228-217" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-218"><a href="anay_6800.html#cb228-218" aria-hidden="true" tabindex="-1"></a>RateCc0025 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-219"><a href="anay_6800.html#cb228-219" aria-hidden="true" tabindex="-1"></a>res0025 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-220"><a href="anay_6800.html#cb228-220" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-221"><a href="anay_6800.html#cb228-221" aria-hidden="true" tabindex="-1"></a>Ratesgsw <span class="ot">&lt;-</span> <span class="fu">c</span>(RateCc0025, RateCc005, RateCc01, RateCc02, RateCc04)</span>
<span id="cb228-222"><a href="anay_6800.html#cb228-222" aria-hidden="true" tabindex="-1"></a>gswvals <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fl">0.025</span>, <span class="fl">0.05</span>, <span class="fl">0.1</span>, <span class="fl">0.2</span>, <span class="fl">0.4</span>)</span>
<span id="cb228-223"><a href="anay_6800.html#cb228-223" aria-hidden="true" tabindex="-1"></a>totalresgsw <span class="ot">&lt;-</span> <span class="fu">c</span>(res0025, res005, res01, res02, res04)</span>
<span id="cb228-224"><a href="anay_6800.html#cb228-224" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-225"><a href="anay_6800.html#cb228-225" aria-hidden="true" tabindex="-1"></a><span class="co"># 下面的代码是采用不同的边界层导度</span></span>
<span id="cb228-226"><a href="anay_6800.html#cb228-226" aria-hidden="true" tabindex="-1"></a><span class="co"># 含义与上面代码相似</span></span>
<span id="cb228-227"><a href="anay_6800.html#cb228-227" aria-hidden="true" tabindex="-1"></a>gm <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-228"><a href="anay_6800.html#cb228-228" aria-hidden="true" tabindex="-1"></a>gsw <span class="ot">&lt;-</span> <span class="fl">0.4</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-229"><a href="anay_6800.html#cb228-229" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-230"><a href="anay_6800.html#cb228-230" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="dv">2</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-231"><a href="anay_6800.html#cb228-231" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-232"><a href="anay_6800.html#cb228-232" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-233"><a href="anay_6800.html#cb228-233" aria-hidden="true" tabindex="-1"></a>Cib2 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-234"><a href="anay_6800.html#cb228-234" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-235"><a href="anay_6800.html#cb228-235" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-236"><a href="anay_6800.html#cb228-236" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-237"><a href="anay_6800.html#cb228-237" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-238"><a href="anay_6800.html#cb228-238" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-239"><a href="anay_6800.html#cb228-239" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-240"><a href="anay_6800.html#cb228-240" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-241"><a href="anay_6800.html#cb228-241" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-242"><a href="anay_6800.html#cb228-242" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-243"><a href="anay_6800.html#cb228-243" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-244"><a href="anay_6800.html#cb228-244" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-245"><a href="anay_6800.html#cb228-245" aria-hidden="true" tabindex="-1"></a>RateCc2 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-246"><a href="anay_6800.html#cb228-246" aria-hidden="true" tabindex="-1"></a>res2 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-247"><a href="anay_6800.html#cb228-247" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-248"><a href="anay_6800.html#cb228-248" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="dv">4</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-249"><a href="anay_6800.html#cb228-249" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-250"><a href="anay_6800.html#cb228-250" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-251"><a href="anay_6800.html#cb228-251" aria-hidden="true" tabindex="-1"></a>Cib4 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-252"><a href="anay_6800.html#cb228-252" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-253"><a href="anay_6800.html#cb228-253" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-254"><a href="anay_6800.html#cb228-254" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-255"><a href="anay_6800.html#cb228-255" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-256"><a href="anay_6800.html#cb228-256" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-257"><a href="anay_6800.html#cb228-257" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-258"><a href="anay_6800.html#cb228-258" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-259"><a href="anay_6800.html#cb228-259" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-260"><a href="anay_6800.html#cb228-260" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-261"><a href="anay_6800.html#cb228-261" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-262"><a href="anay_6800.html#cb228-262" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-263"><a href="anay_6800.html#cb228-263" aria-hidden="true" tabindex="-1"></a>RateCc4 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-264"><a href="anay_6800.html#cb228-264" aria-hidden="true" tabindex="-1"></a>res4 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-265"><a href="anay_6800.html#cb228-265" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-266"><a href="anay_6800.html#cb228-266" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-267"><a href="anay_6800.html#cb228-267" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-268"><a href="anay_6800.html#cb228-268" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-269"><a href="anay_6800.html#cb228-269" aria-hidden="true" tabindex="-1"></a>Cib1 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-270"><a href="anay_6800.html#cb228-270" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-271"><a href="anay_6800.html#cb228-271" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-272"><a href="anay_6800.html#cb228-272" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-273"><a href="anay_6800.html#cb228-273" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-274"><a href="anay_6800.html#cb228-274" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-275"><a href="anay_6800.html#cb228-275" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-276"><a href="anay_6800.html#cb228-276" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-277"><a href="anay_6800.html#cb228-277" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-278"><a href="anay_6800.html#cb228-278" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-279"><a href="anay_6800.html#cb228-279" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-280"><a href="anay_6800.html#cb228-280" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-281"><a href="anay_6800.html#cb228-281" aria-hidden="true" tabindex="-1"></a>RateCc1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-282"><a href="anay_6800.html#cb228-282" aria-hidden="true" tabindex="-1"></a>res1 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-283"><a href="anay_6800.html#cb228-283" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-284"><a href="anay_6800.html#cb228-284" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="fl">0.5</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-285"><a href="anay_6800.html#cb228-285" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-286"><a href="anay_6800.html#cb228-286" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-287"><a href="anay_6800.html#cb228-287" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-288"><a href="anay_6800.html#cb228-288" aria-hidden="true" tabindex="-1"></a>Cib05 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-289"><a href="anay_6800.html#cb228-289" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-290"><a href="anay_6800.html#cb228-290" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-291"><a href="anay_6800.html#cb228-291" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-292"><a href="anay_6800.html#cb228-292" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-293"><a href="anay_6800.html#cb228-293" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-294"><a href="anay_6800.html#cb228-294" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-295"><a href="anay_6800.html#cb228-295" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-296"><a href="anay_6800.html#cb228-296" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-297"><a href="anay_6800.html#cb228-297" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-298"><a href="anay_6800.html#cb228-298" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-299"><a href="anay_6800.html#cb228-299" aria-hidden="true" tabindex="-1"></a>RateCc05 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-300"><a href="anay_6800.html#cb228-300" aria-hidden="true" tabindex="-1"></a>res05 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-301"><a href="anay_6800.html#cb228-301" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-302"><a href="anay_6800.html#cb228-302" aria-hidden="true" tabindex="-1"></a>BLC <span class="ot">&lt;-</span> <span class="fl">0.25</span> <span class="co">#mol m-2 s-1</span></span>
<span id="cb228-303"><a href="anay_6800.html#cb228-303" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-304"><a href="anay_6800.html#cb228-304" aria-hidden="true" tabindex="-1"></a>Ci1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gm <span class="sc">+</span> Cc <span class="co">#umol mol-1</span></span>
<span id="cb228-305"><a href="anay_6800.html#cb228-305" aria-hidden="true" tabindex="-1"></a>Cb1 <span class="ot">&lt;-</span> A <span class="sc">/</span> gsw <span class="sc">+</span> Ci1 <span class="co">#umol mol-1</span></span>
<span id="cb228-306"><a href="anay_6800.html#cb228-306" aria-hidden="true" tabindex="-1"></a>Cib025 <span class="ot">&lt;-</span> Ci1</span>
<span id="cb228-307"><a href="anay_6800.html#cb228-307" aria-hidden="true" tabindex="-1"></a>Cr1 <span class="ot">&lt;-</span> A <span class="sc">/</span> BLC <span class="sc">+</span> Cb1 <span class="co">#umol mol-1</span></span>
<span id="cb228-308"><a href="anay_6800.html#cb228-308" aria-hidden="true" tabindex="-1"></a>Counter <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(<span class="fu">c</span>(<span class="dv">1</span><span class="sc">:</span><span class="fu">length</span>(Cc)))</span>
<span id="cb228-309"><a href="anay_6800.html#cb228-309" aria-hidden="true" tabindex="-1"></a>RateCrmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cr1 <span class="sc">~</span> Counter)</span>
<span id="cb228-310"><a href="anay_6800.html#cb228-310" aria-hidden="true" tabindex="-1"></a>x1 <span class="ot">&lt;-</span> <span class="dv">100</span> <span class="sc">/</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>]</span>
<span id="cb228-311"><a href="anay_6800.html#cb228-311" aria-hidden="true" tabindex="-1"></a>RateCr1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCrmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-312"><a href="anay_6800.html#cb228-312" aria-hidden="true" tabindex="-1"></a>RateCbmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cb1 <span class="sc">~</span> Counter)</span>
<span id="cb228-313"><a href="anay_6800.html#cb228-313" aria-hidden="true" tabindex="-1"></a>RateCb1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCbmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-314"><a href="anay_6800.html#cb228-314" aria-hidden="true" tabindex="-1"></a>RateCimodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Ci1 <span class="sc">~</span> Counter)</span>
<span id="cb228-315"><a href="anay_6800.html#cb228-315" aria-hidden="true" tabindex="-1"></a>RateCi1 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCimodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-316"><a href="anay_6800.html#cb228-316" aria-hidden="true" tabindex="-1"></a>RateCcmodel <span class="ot">&lt;-</span> <span class="fu">lm</span>(Cc <span class="sc">~</span> Counter)</span>
<span id="cb228-317"><a href="anay_6800.html#cb228-317" aria-hidden="true" tabindex="-1"></a>RateCc025 <span class="ot">&lt;-</span> <span class="fu">coef</span>(RateCcmodel)[<span class="dv">2</span>] <span class="sc">*</span> x1 <span class="co">#umol mol-1 min-1</span></span>
<span id="cb228-318"><a href="anay_6800.html#cb228-318" aria-hidden="true" tabindex="-1"></a>res025 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> gm <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> BLC <span class="sc">+</span> <span class="dv">1</span> <span class="sc">/</span> gsw</span>
<span id="cb228-319"><a href="anay_6800.html#cb228-319" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-320"><a href="anay_6800.html#cb228-320" aria-hidden="true" tabindex="-1"></a>BLCRates <span class="ot">&lt;-</span> <span class="fu">c</span>(RateCc025, RateCc05, RateCc1, RateCc2, RateCc4)</span>
<span id="cb228-321"><a href="anay_6800.html#cb228-321" aria-hidden="true" tabindex="-1"></a>BLCvals <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fl">0.25</span>, <span class="fl">0.5</span>, <span class="dv">1</span>, <span class="dv">2</span>, <span class="dv">4</span>)</span>
<span id="cb228-322"><a href="anay_6800.html#cb228-322" aria-hidden="true" tabindex="-1"></a>totalresBLC <span class="ot">&lt;-</span> <span class="fu">c</span>(res025, res05, res1, res2, res4)</span>
<span id="cb228-323"><a href="anay_6800.html#cb228-323" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-324"><a href="anay_6800.html#cb228-324" aria-hidden="true" tabindex="-1"></a>Scenario <span class="ot">&lt;-</span></span>
<span id="cb228-325"><a href="anay_6800.html#cb228-325" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(</span>
<span id="cb228-326"><a href="anay_6800.html#cb228-326" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;Boundary Layer Conductance&quot;</span>, <span class="dv">5</span>),</span>
<span id="cb228-327"><a href="anay_6800.html#cb228-327" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;Stomatal Conductance&quot;</span>, <span class="dv">5</span>),</span>
<span id="cb228-328"><a href="anay_6800.html#cb228-328" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="st">&quot;Mesophyll Conductance&quot;</span>, <span class="dv">6</span>)</span>
<span id="cb228-329"><a href="anay_6800.html#cb228-329" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb228-330"><a href="anay_6800.html#cb228-330" aria-hidden="true" tabindex="-1"></a>Rates <span class="ot">&lt;-</span> <span class="fu">c</span>(BLCRates, Ratesgsw, Ratesgm)</span>
<span id="cb228-331"><a href="anay_6800.html#cb228-331" aria-hidden="true" tabindex="-1"></a>Conductances <span class="ot">&lt;-</span> <span class="fu">c</span>(BLCvals, gswvals, gmval)</span>
<span id="cb228-332"><a href="anay_6800.html#cb228-332" aria-hidden="true" tabindex="-1"></a>TotalRes <span class="ot">&lt;-</span> <span class="fu">c</span>(totalresBLC, totalresgsw, totalresgm)</span>
<span id="cb228-333"><a href="anay_6800.html#cb228-333" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-334"><a href="anay_6800.html#cb228-334" aria-hidden="true" tabindex="-1"></a>Cidiffusion <span class="ot">&lt;-</span> <span class="fu">c</span>(Cim0125, Cim025, Cim05, Cim1, Cim2, Cim4)</span>
<span id="cb228-335"><a href="anay_6800.html#cb228-335" aria-hidden="true" tabindex="-1"></a>Adiffusion <span class="ot">&lt;-</span> <span class="fu">rep</span>(A, <span class="dv">6</span>)</span>
<span id="cb228-336"><a href="anay_6800.html#cb228-336" aria-hidden="true" tabindex="-1"></a>Aappdiffusion <span class="ot">&lt;-</span> <span class="fu">rep</span>(Aapparent, <span class="dv">6</span>)</span>
<span id="cb228-337"><a href="anay_6800.html#cb228-337" aria-hidden="true" tabindex="-1"></a>variable <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fu">rep</span>(<span class="st">&quot;Mesophyll Conductance&quot;</span>, <span class="dv">6</span> <span class="sc">*</span> <span class="fu">length</span>(Cim1)))</span>
<span id="cb228-338"><a href="anay_6800.html#cb228-338" aria-hidden="true" tabindex="-1"></a>conductance <span class="ot">&lt;-</span></span>
<span id="cb228-339"><a href="anay_6800.html#cb228-339" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(<span class="fu">rep</span>(<span class="fl">0.125</span>, <span class="dv">376</span>),</span>
<span id="cb228-340"><a href="anay_6800.html#cb228-340" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="fl">0.25</span>, <span class="dv">376</span>),</span>
<span id="cb228-341"><a href="anay_6800.html#cb228-341" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="fl">0.5</span>, <span class="dv">376</span>),</span>
<span id="cb228-342"><a href="anay_6800.html#cb228-342" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="dv">1</span>, <span class="dv">376</span>),</span>
<span id="cb228-343"><a href="anay_6800.html#cb228-343" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="dv">2</span>, <span class="dv">376</span>),</span>
<span id="cb228-344"><a href="anay_6800.html#cb228-344" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="dv">4</span>, <span class="dv">376</span>))</span>
<span id="cb228-345"><a href="anay_6800.html#cb228-345" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-346"><a href="anay_6800.html#cb228-346" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-347"><a href="anay_6800.html#cb228-347" aria-hidden="true" tabindex="-1"></a>Diffusionplot <span class="ot">&lt;-</span></span>
<span id="cb228-348"><a href="anay_6800.html#cb228-348" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.data.frame</span>(<span class="fu">cbind</span>(</span>
<span id="cb228-349"><a href="anay_6800.html#cb228-349" aria-hidden="true" tabindex="-1"></a>    Cidiffusion,</span>
<span id="cb228-350"><a href="anay_6800.html#cb228-350" aria-hidden="true" tabindex="-1"></a>    Adiffusion,</span>
<span id="cb228-351"><a href="anay_6800.html#cb228-351" aria-hidden="true" tabindex="-1"></a>    Aappdiffusion,</span>
<span id="cb228-352"><a href="anay_6800.html#cb228-352" aria-hidden="true" tabindex="-1"></a>    variable,</span>
<span id="cb228-353"><a href="anay_6800.html#cb228-353" aria-hidden="true" tabindex="-1"></a>    conductance,</span>
<span id="cb228-354"><a href="anay_6800.html#cb228-354" aria-hidden="true" tabindex="-1"></a>    resistance</span>
<span id="cb228-355"><a href="anay_6800.html#cb228-355" aria-hidden="true" tabindex="-1"></a>  ))</span>
<span id="cb228-356"><a href="anay_6800.html#cb228-356" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(Diffusionplot, <span class="st">&quot;./data/DiffusionLimitsACI.csv&quot;</span>)</span>
<span id="cb228-357"><a href="anay_6800.html#cb228-357" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb228-358"><a href="anay_6800.html#cb228-358" aria-hidden="true" tabindex="-1"></a>Diffusion <span class="ot">&lt;-</span></span>
<span id="cb228-359"><a href="anay_6800.html#cb228-359" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.data.frame</span>(<span class="fu">cbind</span>(Scenario, Rates, Conductances, TotalRes))</span>
<span id="cb228-360"><a href="anay_6800.html#cb228-360" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(Diffusion, <span class="st">&quot;./data/DiffusionLimits.csv&quot;</span>)</span></code></pre></div>
<div class="sourceCode" id="cb229"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb229-1"><a href="anay_6800.html#cb229-1" aria-hidden="true" tabindex="-1"></a>knitr<span class="sc">::</span><span class="fu">kable</span>(<span class="fu">head</span>(Diffusion))</span></code></pre></div>
<table>
<thead>
<tr class="header">
<th align="left"></th>
<th align="left">Scenario</th>
<th align="left">Rates</th>
<th align="left">Conductances</th>
<th align="left">TotalRes</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td align="left">Counter</td>
<td align="left">Boundary Layer Conductance</td>
<td align="left">57.1493939574751</td>
<td align="left">0.25</td>
<td align="left">7.5</td>
</tr>
<tr class="even">
<td align="left">Counter.1</td>
<td align="left">Boundary Layer Conductance</td>
<td align="left">64.522239461912</td>
<td align="left">0.5</td>
<td align="left">5.5</td>
</tr>
<tr class="odd">
<td align="left">Counter.2</td>
<td align="left">Boundary Layer Conductance</td>
<td align="left">68.9712299728077</td>
<td align="left">1</td>
<td align="left">4.5</td>
</tr>
<tr class="even">
<td align="left">Counter.3</td>
<td align="left">Boundary Layer Conductance</td>
<td align="left">71.4340185663793</td>
<td align="left">2</td>
<td align="left">4</td>
</tr>
<tr class="odd">
<td align="left">Counter.4</td>
<td align="left">Boundary Layer Conductance</td>
<td align="left">72.7325667866589</td>
<td align="left">4</td>
<td align="left">3.75</td>
</tr>
<tr class="even">
<td align="left">Counter.5</td>
<td align="left">Stomatal Conductance</td>
<td align="left">19.4216526694884</td>
<td align="left">0.025</td>
<td align="left">41.5</td>
</tr>
</tbody>
</table>
<div id="multi12" class="section level3" number="10.8.1">
<h3><span class="header-section-number">10.8.1</span> 扩散限制滞后性</h3>
<p>下面的代码，是根据上面代码的计算结果，结合最初的扩散时间的公式，来计算出各个参数的最大最小值，中间值，构造数据：</p>
<div class="sourceCode" id="cb230"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb230-1"><a href="anay_6800.html#cb230-1" aria-hidden="true" tabindex="-1"></a>gtot1 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> res1</span>
<span id="cb230-2"><a href="anay_6800.html#cb230-2" aria-hidden="true" tabindex="-1"></a>t1low <span class="ot">=</span> (dZlow) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot1 <span class="sc">*</span> dZlow <span class="sc">/</span> phat)</span>
<span id="cb230-3"><a href="anay_6800.html#cb230-3" aria-hidden="true" tabindex="-1"></a>t1median <span class="ot">=</span> (dZmedian) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot1 <span class="sc">*</span> dZmedian <span class="sc">/</span> phat)</span>
<span id="cb230-4"><a href="anay_6800.html#cb230-4" aria-hidden="true" tabindex="-1"></a>t1high <span class="ot">=</span> (dZhigh) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot1 <span class="sc">*</span> dZhigh <span class="sc">/</span> phat)</span>
<span id="cb230-5"><a href="anay_6800.html#cb230-5" aria-hidden="true" tabindex="-1"></a>Cc1low <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t1low <span class="sc">*</span> RateCc1))</span>
<span id="cb230-6"><a href="anay_6800.html#cb230-6" aria-hidden="true" tabindex="-1"></a>Cc1median <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t1median <span class="sc">*</span> RateCc1))</span>
<span id="cb230-7"><a href="anay_6800.html#cb230-7" aria-hidden="true" tabindex="-1"></a>Cc1high <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t1high <span class="sc">*</span> RateCc1))</span>
<span id="cb230-8"><a href="anay_6800.html#cb230-8" aria-hidden="true" tabindex="-1"></a>vo1low <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc1low <span class="sc">/</span> Kc)) </span>
<span id="cb230-9"><a href="anay_6800.html#cb230-9" aria-hidden="true" tabindex="-1"></a>A1low <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo1low <span class="sc">-</span> R </span>
<span id="cb230-10"><a href="anay_6800.html#cb230-10" aria-hidden="true" tabindex="-1"></a>vo1median <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc1median <span class="sc">/</span> Kc)) </span>
<span id="cb230-11"><a href="anay_6800.html#cb230-11" aria-hidden="true" tabindex="-1"></a>A1median <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo1median <span class="sc">-</span> R </span>
<span id="cb230-12"><a href="anay_6800.html#cb230-12" aria-hidden="true" tabindex="-1"></a>vo1high <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc1high <span class="sc">/</span> Kc)) </span>
<span id="cb230-13"><a href="anay_6800.html#cb230-13" aria-hidden="true" tabindex="-1"></a>A1high <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo1high <span class="sc">-</span> R </span>
<span id="cb230-14"><a href="anay_6800.html#cb230-14" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-15"><a href="anay_6800.html#cb230-15" aria-hidden="true" tabindex="-1"></a>gtot0125 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> res0125</span>
<span id="cb230-16"><a href="anay_6800.html#cb230-16" aria-hidden="true" tabindex="-1"></a>t0125low <span class="ot">=</span> (dZlow) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot0125 <span class="sc">*</span> dZlow <span class="sc">/</span> phat)</span>
<span id="cb230-17"><a href="anay_6800.html#cb230-17" aria-hidden="true" tabindex="-1"></a>t0125median <span class="ot">=</span> (dZmedian) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot0125 <span class="sc">*</span> dZmedian <span class="sc">/</span> phat)</span>
<span id="cb230-18"><a href="anay_6800.html#cb230-18" aria-hidden="true" tabindex="-1"></a>t0125high <span class="ot">=</span> (dZhigh) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot0125 <span class="sc">*</span> dZhigh <span class="sc">/</span> phat)</span>
<span id="cb230-19"><a href="anay_6800.html#cb230-19" aria-hidden="true" tabindex="-1"></a>Cc0125low <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t0125low <span class="sc">*</span> RateCc0125))</span>
<span id="cb230-20"><a href="anay_6800.html#cb230-20" aria-hidden="true" tabindex="-1"></a>Cc0125median <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t0125median <span class="sc">*</span> RateCc0125))</span>
<span id="cb230-21"><a href="anay_6800.html#cb230-21" aria-hidden="true" tabindex="-1"></a>Cc0125high <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t0125high <span class="sc">*</span> RateCc0125))</span>
<span id="cb230-22"><a href="anay_6800.html#cb230-22" aria-hidden="true" tabindex="-1"></a>vo0125low <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc0125low <span class="sc">/</span> Kc)) </span>
<span id="cb230-23"><a href="anay_6800.html#cb230-23" aria-hidden="true" tabindex="-1"></a>A0125low <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo0125low <span class="sc">-</span> R </span>
<span id="cb230-24"><a href="anay_6800.html#cb230-24" aria-hidden="true" tabindex="-1"></a>vo0125median <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc0125median <span class="sc">/</span> Kc)) </span>
<span id="cb230-25"><a href="anay_6800.html#cb230-25" aria-hidden="true" tabindex="-1"></a>A0125median <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo0125median <span class="sc">-</span> R </span>
<span id="cb230-26"><a href="anay_6800.html#cb230-26" aria-hidden="true" tabindex="-1"></a>vo0125high <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc0125high <span class="sc">/</span> Kc)) </span>
<span id="cb230-27"><a href="anay_6800.html#cb230-27" aria-hidden="true" tabindex="-1"></a>A0125high <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo0125high <span class="sc">-</span> R </span>
<span id="cb230-28"><a href="anay_6800.html#cb230-28" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-29"><a href="anay_6800.html#cb230-29" aria-hidden="true" tabindex="-1"></a>gtot025 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> res025</span>
<span id="cb230-30"><a href="anay_6800.html#cb230-30" aria-hidden="true" tabindex="-1"></a>t025low <span class="ot">=</span> (dZlow) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot025 <span class="sc">*</span> dZlow <span class="sc">/</span> phat)</span>
<span id="cb230-31"><a href="anay_6800.html#cb230-31" aria-hidden="true" tabindex="-1"></a>t025median <span class="ot">=</span> (dZmedian) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot025 <span class="sc">*</span> dZmedian <span class="sc">/</span> phat)</span>
<span id="cb230-32"><a href="anay_6800.html#cb230-32" aria-hidden="true" tabindex="-1"></a>t025high <span class="ot">=</span> (dZhigh) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot025 <span class="sc">*</span> dZhigh <span class="sc">/</span> phat)</span>
<span id="cb230-33"><a href="anay_6800.html#cb230-33" aria-hidden="true" tabindex="-1"></a>Cc025low <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t025low <span class="sc">*</span> RateCc025))</span>
<span id="cb230-34"><a href="anay_6800.html#cb230-34" aria-hidden="true" tabindex="-1"></a>Cc025median <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t025median <span class="sc">*</span> RateCc025))</span>
<span id="cb230-35"><a href="anay_6800.html#cb230-35" aria-hidden="true" tabindex="-1"></a>Cc025high <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t025high <span class="sc">*</span> RateCc025))</span>
<span id="cb230-36"><a href="anay_6800.html#cb230-36" aria-hidden="true" tabindex="-1"></a>vo025low <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc025low <span class="sc">/</span> Kc)) </span>
<span id="cb230-37"><a href="anay_6800.html#cb230-37" aria-hidden="true" tabindex="-1"></a>A025low <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo025low <span class="sc">-</span> R </span>
<span id="cb230-38"><a href="anay_6800.html#cb230-38" aria-hidden="true" tabindex="-1"></a>vo025median <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc025median <span class="sc">/</span> Kc)) </span>
<span id="cb230-39"><a href="anay_6800.html#cb230-39" aria-hidden="true" tabindex="-1"></a>A025median <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo025median <span class="sc">-</span> R </span>
<span id="cb230-40"><a href="anay_6800.html#cb230-40" aria-hidden="true" tabindex="-1"></a>vo025high <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc025high <span class="sc">/</span> Kc)) </span>
<span id="cb230-41"><a href="anay_6800.html#cb230-41" aria-hidden="true" tabindex="-1"></a>A025high <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo025high <span class="sc">-</span> R </span>
<span id="cb230-42"><a href="anay_6800.html#cb230-42" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-43"><a href="anay_6800.html#cb230-43" aria-hidden="true" tabindex="-1"></a>gtot05 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> res05</span>
<span id="cb230-44"><a href="anay_6800.html#cb230-44" aria-hidden="true" tabindex="-1"></a>t05low <span class="ot">=</span> (dZlow) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot05 <span class="sc">*</span> dZlow <span class="sc">/</span> phat)</span>
<span id="cb230-45"><a href="anay_6800.html#cb230-45" aria-hidden="true" tabindex="-1"></a>t05median <span class="ot">=</span> (dZmedian) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot05 <span class="sc">*</span> dZmedian <span class="sc">/</span> phat)</span>
<span id="cb230-46"><a href="anay_6800.html#cb230-46" aria-hidden="true" tabindex="-1"></a>t05high <span class="ot">=</span> (dZhigh) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot05 <span class="sc">*</span> dZhigh <span class="sc">/</span> phat)</span>
<span id="cb230-47"><a href="anay_6800.html#cb230-47" aria-hidden="true" tabindex="-1"></a>Cc05low <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t05low <span class="sc">*</span> RateCc05))</span>
<span id="cb230-48"><a href="anay_6800.html#cb230-48" aria-hidden="true" tabindex="-1"></a>Cc05median <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t05median <span class="sc">*</span> RateCc05))</span>
<span id="cb230-49"><a href="anay_6800.html#cb230-49" aria-hidden="true" tabindex="-1"></a>Cc05high <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t05high <span class="sc">*</span> RateCc05))</span>
<span id="cb230-50"><a href="anay_6800.html#cb230-50" aria-hidden="true" tabindex="-1"></a>vo05low <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc05low <span class="sc">/</span> Kc)) </span>
<span id="cb230-51"><a href="anay_6800.html#cb230-51" aria-hidden="true" tabindex="-1"></a>A05low <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo05low <span class="sc">-</span> R </span>
<span id="cb230-52"><a href="anay_6800.html#cb230-52" aria-hidden="true" tabindex="-1"></a>vo05median <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc05median <span class="sc">/</span> Kc)) </span>
<span id="cb230-53"><a href="anay_6800.html#cb230-53" aria-hidden="true" tabindex="-1"></a>A05median <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo05median <span class="sc">-</span> R </span>
<span id="cb230-54"><a href="anay_6800.html#cb230-54" aria-hidden="true" tabindex="-1"></a>vo05high <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc05high <span class="sc">/</span> Kc)) </span>
<span id="cb230-55"><a href="anay_6800.html#cb230-55" aria-hidden="true" tabindex="-1"></a>A05high <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo05high <span class="sc">-</span> R </span>
<span id="cb230-56"><a href="anay_6800.html#cb230-56" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-57"><a href="anay_6800.html#cb230-57" aria-hidden="true" tabindex="-1"></a>gtot2 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> res2</span>
<span id="cb230-58"><a href="anay_6800.html#cb230-58" aria-hidden="true" tabindex="-1"></a>t2low <span class="ot">=</span> (dZlow) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot2 <span class="sc">*</span> dZlow <span class="sc">/</span> phat)</span>
<span id="cb230-59"><a href="anay_6800.html#cb230-59" aria-hidden="true" tabindex="-1"></a>t2median <span class="ot">=</span> (dZmedian) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot2 <span class="sc">*</span> dZmedian <span class="sc">/</span> phat)</span>
<span id="cb230-60"><a href="anay_6800.html#cb230-60" aria-hidden="true" tabindex="-1"></a>t2high <span class="ot">=</span> (dZhigh) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot2 <span class="sc">*</span> dZhigh <span class="sc">/</span> phat)</span>
<span id="cb230-61"><a href="anay_6800.html#cb230-61" aria-hidden="true" tabindex="-1"></a>Cc2low <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t2low <span class="sc">*</span> RateCc2))</span>
<span id="cb230-62"><a href="anay_6800.html#cb230-62" aria-hidden="true" tabindex="-1"></a>Cc2median <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t2median <span class="sc">*</span> RateCc2))</span>
<span id="cb230-63"><a href="anay_6800.html#cb230-63" aria-hidden="true" tabindex="-1"></a>Cc2high <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t2high <span class="sc">*</span> RateCc2))</span>
<span id="cb230-64"><a href="anay_6800.html#cb230-64" aria-hidden="true" tabindex="-1"></a>vo2low <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc2low <span class="sc">/</span> Kc)) </span>
<span id="cb230-65"><a href="anay_6800.html#cb230-65" aria-hidden="true" tabindex="-1"></a>A2low <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo2low <span class="sc">-</span> R </span>
<span id="cb230-66"><a href="anay_6800.html#cb230-66" aria-hidden="true" tabindex="-1"></a>vo2median <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc2median <span class="sc">/</span> Kc)) </span>
<span id="cb230-67"><a href="anay_6800.html#cb230-67" aria-hidden="true" tabindex="-1"></a>A2median <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo2median <span class="sc">-</span> R </span>
<span id="cb230-68"><a href="anay_6800.html#cb230-68" aria-hidden="true" tabindex="-1"></a>vo2high <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc2high <span class="sc">/</span> Kc)) </span>
<span id="cb230-69"><a href="anay_6800.html#cb230-69" aria-hidden="true" tabindex="-1"></a>A2high <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo2high <span class="sc">-</span> R </span>
<span id="cb230-70"><a href="anay_6800.html#cb230-70" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-71"><a href="anay_6800.html#cb230-71" aria-hidden="true" tabindex="-1"></a>gtot4 <span class="ot">&lt;-</span> <span class="dv">1</span> <span class="sc">/</span> res4</span>
<span id="cb230-72"><a href="anay_6800.html#cb230-72" aria-hidden="true" tabindex="-1"></a>t4low <span class="ot">=</span> (dZlow) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot4 <span class="sc">*</span> dZlow <span class="sc">/</span> phat)</span>
<span id="cb230-73"><a href="anay_6800.html#cb230-73" aria-hidden="true" tabindex="-1"></a>t4median <span class="ot">=</span> (dZmedian) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot4 <span class="sc">*</span> dZmedian <span class="sc">/</span> phat)</span>
<span id="cb230-74"><a href="anay_6800.html#cb230-74" aria-hidden="true" tabindex="-1"></a>t4high <span class="ot">=</span> (dZhigh) <span class="sc">^</span> <span class="dv">2</span> <span class="sc">/</span> (gtot4 <span class="sc">*</span> dZhigh <span class="sc">/</span> phat)</span>
<span id="cb230-75"><a href="anay_6800.html#cb230-75" aria-hidden="true" tabindex="-1"></a>Cc4low <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t4low <span class="sc">*</span> RateCc4))</span>
<span id="cb230-76"><a href="anay_6800.html#cb230-76" aria-hidden="true" tabindex="-1"></a>Cc4median <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t4median <span class="sc">*</span> RateCc4))</span>
<span id="cb230-77"><a href="anay_6800.html#cb230-77" aria-hidden="true" tabindex="-1"></a>Cc4high <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t4high <span class="sc">*</span> RateCc4))</span>
<span id="cb230-78"><a href="anay_6800.html#cb230-78" aria-hidden="true" tabindex="-1"></a>vo4low <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc4low <span class="sc">/</span> Kc)) </span>
<span id="cb230-79"><a href="anay_6800.html#cb230-79" aria-hidden="true" tabindex="-1"></a>A4low <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo4low <span class="sc">-</span> R </span>
<span id="cb230-80"><a href="anay_6800.html#cb230-80" aria-hidden="true" tabindex="-1"></a>vo4median <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc4median <span class="sc">/</span> Kc)) </span>
<span id="cb230-81"><a href="anay_6800.html#cb230-81" aria-hidden="true" tabindex="-1"></a>A4median <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo4median <span class="sc">-</span> R </span>
<span id="cb230-82"><a href="anay_6800.html#cb230-82" aria-hidden="true" tabindex="-1"></a>vo4high <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc4high <span class="sc">/</span> Kc)) </span>
<span id="cb230-83"><a href="anay_6800.html#cb230-83" aria-hidden="true" tabindex="-1"></a>A4high <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo4high <span class="sc">-</span> R </span>
<span id="cb230-84"><a href="anay_6800.html#cb230-84" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-85"><a href="anay_6800.html#cb230-85" aria-hidden="true" tabindex="-1"></a>Cc0125high2 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t0125high <span class="sc">*</span> RateCc0125 <span class="sc">*</span> <span class="dv">2</span>))</span>
<span id="cb230-86"><a href="anay_6800.html#cb230-86" aria-hidden="true" tabindex="-1"></a>Cc025high2 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t025high <span class="sc">*</span> RateCc025 <span class="sc">*</span> <span class="dv">2</span>))</span>
<span id="cb230-87"><a href="anay_6800.html#cb230-87" aria-hidden="true" tabindex="-1"></a>Cc05high2 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t05high <span class="sc">*</span> RateCc05 <span class="sc">*</span> <span class="dv">2</span>))</span>
<span id="cb230-88"><a href="anay_6800.html#cb230-88" aria-hidden="true" tabindex="-1"></a>Cc1high2 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t1high <span class="sc">*</span> RateCc1 <span class="sc">*</span> <span class="dv">2</span>))</span>
<span id="cb230-89"><a href="anay_6800.html#cb230-89" aria-hidden="true" tabindex="-1"></a>Cc2high2 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t2high <span class="sc">*</span> RateCc2 <span class="sc">*</span> <span class="dv">2</span>))</span>
<span id="cb230-90"><a href="anay_6800.html#cb230-90" aria-hidden="true" tabindex="-1"></a>Cc4high2 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t4high <span class="sc">*</span> RateCc4 <span class="sc">*</span> <span class="dv">2</span>))</span>
<span id="cb230-91"><a href="anay_6800.html#cb230-91" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-92"><a href="anay_6800.html#cb230-92" aria-hidden="true" tabindex="-1"></a>vo0125high2 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc0125high2 <span class="sc">/</span> Kc)) </span>
<span id="cb230-93"><a href="anay_6800.html#cb230-93" aria-hidden="true" tabindex="-1"></a>A0125high2 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo0125high2 <span class="sc">-</span> R </span>
<span id="cb230-94"><a href="anay_6800.html#cb230-94" aria-hidden="true" tabindex="-1"></a>vo025high2 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc025high2 <span class="sc">/</span> Kc)) </span>
<span id="cb230-95"><a href="anay_6800.html#cb230-95" aria-hidden="true" tabindex="-1"></a>A025high2 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo025high2 <span class="sc">-</span> R </span>
<span id="cb230-96"><a href="anay_6800.html#cb230-96" aria-hidden="true" tabindex="-1"></a>vo05high2 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc05high2 <span class="sc">/</span> Kc)) </span>
<span id="cb230-97"><a href="anay_6800.html#cb230-97" aria-hidden="true" tabindex="-1"></a>A05high2 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo05high2 <span class="sc">-</span> R </span>
<span id="cb230-98"><a href="anay_6800.html#cb230-98" aria-hidden="true" tabindex="-1"></a>vo1high2 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc1high2 <span class="sc">/</span> Kc)) </span>
<span id="cb230-99"><a href="anay_6800.html#cb230-99" aria-hidden="true" tabindex="-1"></a>A1high2 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo1high2 <span class="sc">-</span> R </span>
<span id="cb230-100"><a href="anay_6800.html#cb230-100" aria-hidden="true" tabindex="-1"></a>vo2high2 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc2high2 <span class="sc">/</span> Kc)) </span>
<span id="cb230-101"><a href="anay_6800.html#cb230-101" aria-hidden="true" tabindex="-1"></a>A2high2 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo2high2 <span class="sc">-</span> R </span>
<span id="cb230-102"><a href="anay_6800.html#cb230-102" aria-hidden="true" tabindex="-1"></a>vo4high2 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc4high2 <span class="sc">/</span> Kc)) </span>
<span id="cb230-103"><a href="anay_6800.html#cb230-103" aria-hidden="true" tabindex="-1"></a>A4high2 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo4high2 <span class="sc">-</span> R </span>
<span id="cb230-104"><a href="anay_6800.html#cb230-104" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-105"><a href="anay_6800.html#cb230-105" aria-hidden="true" tabindex="-1"></a>Ahigh2 <span class="ot">&lt;-</span></span>
<span id="cb230-106"><a href="anay_6800.html#cb230-106" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(A0125high2, A025high2, A05high2, A1high2, A2high2, A4high2)</span>
<span id="cb230-107"><a href="anay_6800.html#cb230-107" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-108"><a href="anay_6800.html#cb230-108" aria-hidden="true" tabindex="-1"></a>Cc0125high3 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t0125high <span class="sc">*</span> RateCc0125 <span class="sc">*</span> <span class="dv">3</span>))</span>
<span id="cb230-109"><a href="anay_6800.html#cb230-109" aria-hidden="true" tabindex="-1"></a>Cc025high3 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t025high <span class="sc">*</span> RateCc025 <span class="sc">*</span> <span class="dv">3</span>))</span>
<span id="cb230-110"><a href="anay_6800.html#cb230-110" aria-hidden="true" tabindex="-1"></a>Cc05high3 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t05high <span class="sc">*</span> RateCc05 <span class="sc">*</span> <span class="dv">3</span>))</span>
<span id="cb230-111"><a href="anay_6800.html#cb230-111" aria-hidden="true" tabindex="-1"></a>Cc1high3 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t1high <span class="sc">*</span> RateCc1 <span class="sc">*</span> <span class="dv">3</span>))</span>
<span id="cb230-112"><a href="anay_6800.html#cb230-112" aria-hidden="true" tabindex="-1"></a>Cc2high3 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t2high <span class="sc">*</span> RateCc2 <span class="sc">*</span> <span class="dv">3</span>))</span>
<span id="cb230-113"><a href="anay_6800.html#cb230-113" aria-hidden="true" tabindex="-1"></a>Cc4high3 <span class="ot">&lt;-</span> <span class="fu">c</span>(Cc <span class="sc">+</span> (t4high <span class="sc">*</span> RateCc4 <span class="sc">*</span> <span class="dv">3</span>))</span>
<span id="cb230-114"><a href="anay_6800.html#cb230-114" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-115"><a href="anay_6800.html#cb230-115" aria-hidden="true" tabindex="-1"></a>vo0125high3 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc0125high3 <span class="sc">/</span> Kc)) </span>
<span id="cb230-116"><a href="anay_6800.html#cb230-116" aria-hidden="true" tabindex="-1"></a>A0125high3 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo0125high3 <span class="sc">-</span> R </span>
<span id="cb230-117"><a href="anay_6800.html#cb230-117" aria-hidden="true" tabindex="-1"></a>vo025high3 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc025high3 <span class="sc">/</span> Kc)) </span>
<span id="cb230-118"><a href="anay_6800.html#cb230-118" aria-hidden="true" tabindex="-1"></a>A025high3 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo025high3 <span class="sc">-</span> R </span>
<span id="cb230-119"><a href="anay_6800.html#cb230-119" aria-hidden="true" tabindex="-1"></a>vo05high3 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc05high3 <span class="sc">/</span> Kc)) </span>
<span id="cb230-120"><a href="anay_6800.html#cb230-120" aria-hidden="true" tabindex="-1"></a>A05high3 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo05high3 <span class="sc">-</span> R </span>
<span id="cb230-121"><a href="anay_6800.html#cb230-121" aria-hidden="true" tabindex="-1"></a>vo1high3 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc1high3 <span class="sc">/</span> Kc)) </span>
<span id="cb230-122"><a href="anay_6800.html#cb230-122" aria-hidden="true" tabindex="-1"></a>A1high3 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo1high3 <span class="sc">-</span> R </span>
<span id="cb230-123"><a href="anay_6800.html#cb230-123" aria-hidden="true" tabindex="-1"></a>vo2high3 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc2high3 <span class="sc">/</span> Kc)) </span>
<span id="cb230-124"><a href="anay_6800.html#cb230-124" aria-hidden="true" tabindex="-1"></a>A2high3 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo2high3 <span class="sc">-</span> R </span>
<span id="cb230-125"><a href="anay_6800.html#cb230-125" aria-hidden="true" tabindex="-1"></a>vo4high3 <span class="ot">&lt;-</span> Vomax <span class="sc">*</span> O2 <span class="sc">/</span> (O2 <span class="sc">+</span> Ko <span class="sc">*</span> (<span class="dv">1</span> <span class="sc">+</span> Cc4high3 <span class="sc">/</span> Kc)) </span>
<span id="cb230-126"><a href="anay_6800.html#cb230-126" aria-hidden="true" tabindex="-1"></a>A4high3 <span class="ot">&lt;-</span> vc <span class="sc">-</span> <span class="fl">0.5</span> <span class="sc">*</span> vo4high3 <span class="sc">-</span> R </span>
<span id="cb230-127"><a href="anay_6800.html#cb230-127" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-128"><a href="anay_6800.html#cb230-128" aria-hidden="true" tabindex="-1"></a>Ahigh3 <span class="ot">&lt;-</span></span>
<span id="cb230-129"><a href="anay_6800.html#cb230-129" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(A0125high3, A025high3, A05high3, A1high3, A2high3, A4high3)</span>
<span id="cb230-130"><a href="anay_6800.html#cb230-130" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-131"><a href="anay_6800.html#cb230-131" aria-hidden="true" tabindex="-1"></a>Cidiffusion <span class="ot">&lt;-</span> <span class="fu">c</span>(Cim0125, Cim025, Cim05, Cim1, Cim2, Cim4)</span>
<span id="cb230-132"><a href="anay_6800.html#cb230-132" aria-hidden="true" tabindex="-1"></a>Alow <span class="ot">&lt;-</span> <span class="fu">c</span>(A0125low, A025low, A05low, A1low, A2low, A4low)</span>
<span id="cb230-133"><a href="anay_6800.html#cb230-133" aria-hidden="true" tabindex="-1"></a>Amedian <span class="ot">&lt;-</span></span>
<span id="cb230-134"><a href="anay_6800.html#cb230-134" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(A0125median,</span>
<span id="cb230-135"><a href="anay_6800.html#cb230-135" aria-hidden="true" tabindex="-1"></a>    A025median,</span>
<span id="cb230-136"><a href="anay_6800.html#cb230-136" aria-hidden="true" tabindex="-1"></a>    A05median,</span>
<span id="cb230-137"><a href="anay_6800.html#cb230-137" aria-hidden="true" tabindex="-1"></a>    A1median,</span>
<span id="cb230-138"><a href="anay_6800.html#cb230-138" aria-hidden="true" tabindex="-1"></a>    A2median,</span>
<span id="cb230-139"><a href="anay_6800.html#cb230-139" aria-hidden="true" tabindex="-1"></a>    A4median)</span>
<span id="cb230-140"><a href="anay_6800.html#cb230-140" aria-hidden="true" tabindex="-1"></a>Ahigh <span class="ot">&lt;-</span> <span class="fu">c</span>(A0125high, A025high, A05high, A1high, A2high, A4high)</span>
<span id="cb230-141"><a href="anay_6800.html#cb230-141" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-142"><a href="anay_6800.html#cb230-142" aria-hidden="true" tabindex="-1"></a>variable <span class="ot">&lt;-</span> <span class="fu">c</span>(<span class="fu">rep</span>(<span class="st">&quot;Mesophyll Conductance&quot;</span>, <span class="dv">6</span> <span class="sc">*</span> <span class="fu">length</span>(Cim1)))</span>
<span id="cb230-143"><a href="anay_6800.html#cb230-143" aria-hidden="true" tabindex="-1"></a>conductance <span class="ot">&lt;-</span></span>
<span id="cb230-144"><a href="anay_6800.html#cb230-144" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(<span class="fu">rep</span>(<span class="fl">0.125</span>, <span class="dv">376</span>),</span>
<span id="cb230-145"><a href="anay_6800.html#cb230-145" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="fl">0.25</span>, <span class="dv">376</span>),</span>
<span id="cb230-146"><a href="anay_6800.html#cb230-146" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="fl">0.5</span>, <span class="dv">376</span>),</span>
<span id="cb230-147"><a href="anay_6800.html#cb230-147" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="dv">1</span>, <span class="dv">376</span>),</span>
<span id="cb230-148"><a href="anay_6800.html#cb230-148" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="dv">2</span>, <span class="dv">376</span>),</span>
<span id="cb230-149"><a href="anay_6800.html#cb230-149" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="dv">4</span>, <span class="dv">376</span>))</span>
<span id="cb230-150"><a href="anay_6800.html#cb230-150" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb230-151"><a href="anay_6800.html#cb230-151" aria-hidden="true" tabindex="-1"></a>Diffusionplot2 <span class="ot">&lt;-</span></span>
<span id="cb230-152"><a href="anay_6800.html#cb230-152" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.data.frame</span>(</span>
<span id="cb230-153"><a href="anay_6800.html#cb230-153" aria-hidden="true" tabindex="-1"></a>    <span class="fu">cbind</span>(</span>
<span id="cb230-154"><a href="anay_6800.html#cb230-154" aria-hidden="true" tabindex="-1"></a>      Cidiffusion,</span>
<span id="cb230-155"><a href="anay_6800.html#cb230-155" aria-hidden="true" tabindex="-1"></a>      Alow,</span>
<span id="cb230-156"><a href="anay_6800.html#cb230-156" aria-hidden="true" tabindex="-1"></a>      Amedian,</span>
<span id="cb230-157"><a href="anay_6800.html#cb230-157" aria-hidden="true" tabindex="-1"></a>      Ahigh,</span>
<span id="cb230-158"><a href="anay_6800.html#cb230-158" aria-hidden="true" tabindex="-1"></a>      Ahigh2,</span>
<span id="cb230-159"><a href="anay_6800.html#cb230-159" aria-hidden="true" tabindex="-1"></a>      Ahigh3,</span>
<span id="cb230-160"><a href="anay_6800.html#cb230-160" aria-hidden="true" tabindex="-1"></a>      variable,</span>
<span id="cb230-161"><a href="anay_6800.html#cb230-161" aria-hidden="true" tabindex="-1"></a>      conductance,</span>
<span id="cb230-162"><a href="anay_6800.html#cb230-162" aria-hidden="true" tabindex="-1"></a>      resistance</span>
<span id="cb230-163"><a href="anay_6800.html#cb230-163" aria-hidden="true" tabindex="-1"></a>    )</span>
<span id="cb230-164"><a href="anay_6800.html#cb230-164" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb230-165"><a href="anay_6800.html#cb230-165" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(Diffusionplot2, <span class="st">&quot;./data/DiffusionLimitsACI2.csv&quot;</span>)</span></code></pre></div>
<p>最终够到的不同导度下的扩散数据如下：</p>
<div class="sourceCode" id="cb231"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb231-1"><a href="anay_6800.html#cb231-1" aria-hidden="true" tabindex="-1"></a>knitr<span class="sc">::</span><span class="fu">kable</span>(<span class="fu">head</span>(Diffusionplot2))</span></code></pre></div>
<table>
<colgroup>
<col width="11%" />
<col width="11%" />
<col width="11%" />
<col width="11%" />
<col width="11%" />
<col width="11%" />
<col width="14%" />
<col width="7%" />
<col width="7%" />
</colgroup>
<thead>
<tr class="header">
<th align="left">Cidiffusion</th>
<th align="left">Alow</th>
<th align="left">Amedian</th>
<th align="left">Ahigh</th>
<th align="left">Ahigh2</th>
<th align="left">Ahigh3</th>
<th align="left">variable</th>
<th align="left">conductance</th>
<th align="left">resistance</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td align="left">-14.0805894452511</td>
<td align="left">-4.87461753940542</td>
<td align="left">-4.86419435199041</td>
<td align="left">-4.81536251060599</td>
<td align="left">-4.74710314038274</td>
<td align="left">-4.68025068475633</td>
<td align="left">Mesophyll Conductance</td>
<td align="left">0.125</td>
<td align="left">11</td>
</tr>
<tr class="even">
<td align="left">-11.8541114570766</td>
<td align="left">-4.72133615031493</td>
<td align="left">-4.71094118846005</td>
<td align="left">-4.66224099010836</td>
<td align="left">-4.59416400241068</td>
<td align="left">-4.52748832337504</td>
<td align="left">Mesophyll Conductance</td>
<td align="left">0.125</td>
<td align="left">11</td>
</tr>
<tr class="odd">
<td align="left">-9.63096032171488</td>
<td align="left">-4.56847050260645</td>
<td align="left">-4.55810365181624</td>
<td align="left">-4.50953456487788</td>
<td align="left">-4.44163922971142</td>
<td align="left">-4.37513962701612</td>
<td align="left">Mesophyll Conductance</td>
<td align="left">0.125</td>
<td align="left">11</td>
</tr>
<tr class="even">
<td align="left">-7.41112252124025</td>
<td align="left">-4.41601890716257</td>
<td align="left">-4.40568005356001</td>
<td align="left">-4.35724154927421</td>
<td align="left">-4.28952714053524</td>
<td align="left">-4.22320291762348</td>
<td align="left">Mesophyll Conductance</td>
<td align="left">0.125</td>
<td align="left">11</td>
</tr>
<tr class="odd">
<td align="left">-5.19458461086401</td>
<td align="left">-4.26397968400382</td>
<td align="left">-4.25366871432613</td>
<td align="left">-4.20536026677158</td>
<td align="left">-4.13782606222113</td>
<td align="left">-4.07167652620537</td>
<td align="left">Mesophyll Conductance</td>
<td align="left">0.125</td>
<td align="left">11</td>
</tr>
<tr class="even">
<td align="left">-2.98133321844053</td>
<td align="left">-4.11235116222692</td>
<td align="left">-4.10206796382144</td>
<td align="left">-4.05388904989726</td>
<td align="left">-3.98653433113539</td>
<td align="left">-3.9205587927733</td>
<td align="left">Mesophyll Conductance</td>
<td align="left">0.125</td>
<td align="left">11</td>
</tr>
</tbody>
</table>
</div>
</div>
<div id="multi13" class="section level2" number="10.9">
<h2><span class="header-section-number">10.9</span> 扩散限制作图</h2>
<div class="sourceCode" id="cb232"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb232-1"><a href="anay_6800.html#cb232-1" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/DiffusionLimitsACI2.csv&quot;</span>)</span>
<span id="cb232-2"><a href="anay_6800.html#cb232-2" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>resistance <span class="ot">&lt;-</span> <span class="fu">as.factor</span>(data<span class="sc">$</span>resistance)</span>
<span id="cb232-3"><a href="anay_6800.html#cb232-3" aria-hidden="true" tabindex="-1"></a>graph <span class="ot">&lt;-</span> <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(<span class="at">x =</span> Cidiffusion, <span class="at">y =</span> Ahigh3, <span class="at">colour =</span> resistance)) <span class="sc">+</span></span>
<span id="cb232-4"><a href="anay_6800.html#cb232-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_abline</span>(<span class="at">slope=</span><span class="dv">0</span>,<span class="at">intercept=</span><span class="dv">0</span>,<span class="at">size=</span><span class="fl">1.5</span>)<span class="sc">+</span></span>
<span id="cb232-5"><a href="anay_6800.html#cb232-5" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>()<span class="sc">+</span></span>
<span id="cb232-6"><a href="anay_6800.html#cb232-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Total Resistance&#39;</span>)<span class="sc">+</span></span>
<span id="cb232-7"><a href="anay_6800.html#cb232-7" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb232-8"><a href="anay_6800.html#cb232-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb232-9"><a href="anay_6800.html#cb232-9" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits=</span><span class="fu">c</span>(<span class="dv">0</span>,<span class="dv">100</span>))<span class="sc">+</span></span>
<span id="cb232-10"><a href="anay_6800.html#cb232-10" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits=</span><span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>,<span class="dv">10</span>))<span class="sc">+</span></span>
<span id="cb232-11"><a href="anay_6800.html#cb232-11" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb232-12"><a href="anay_6800.html#cb232-12" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">18</span>),</span>
<span id="cb232-13"><a href="anay_6800.html#cb232-13" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">15</span>),</span>
<span id="cb232-14"><a href="anay_6800.html#cb232-14" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="st">&#39;right&#39;</span>,</span>
<span id="cb232-15"><a href="anay_6800.html#cb232-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb232-16"><a href="anay_6800.html#cb232-16" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>()</span>
<span id="cb232-17"><a href="anay_6800.html#cb232-17" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb232-18"><a href="anay_6800.html#cb232-18" aria-hidden="true" tabindex="-1"></a>graph</span></code></pre></div>
<pre><code>## Warning: Removed 1863 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:difuci"></span>
<img src="bookdown_files/figure-html/difuci-1.png" alt="不同 Ci 扩散限制下的差异" width="672" />
<p class="caption">
图 10.13: 不同 Ci 扩散限制下的差异
</p>
</div>
<div class="sourceCode" id="cb234"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb234-1"><a href="anay_6800.html#cb234-1" aria-hidden="true" tabindex="-1"></a>datahigh <span class="ot">&lt;-</span> data[data<span class="sc">$</span>resistance <span class="sc">==</span> <span class="st">&quot;11&quot;</span>,]</span>
<span id="cb234-2"><a href="anay_6800.html#cb234-2" aria-hidden="true" tabindex="-1"></a>graph <span class="ot">&lt;-</span> <span class="fu">ggplot</span>(datahigh, <span class="fu">aes</span>(<span class="at">x =</span> Cidiffusion, <span class="at">y =</span> Ahigh3)) <span class="sc">+</span></span>
<span id="cb234-3"><a href="anay_6800.html#cb234-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_abline</span>(<span class="at">slope=</span><span class="dv">0</span>,<span class="at">intercept=</span><span class="dv">0</span>,<span class="at">size=</span><span class="fl">1.5</span>)<span class="sc">+</span></span>
<span id="cb234-4"><a href="anay_6800.html#cb234-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>(<span class="at">colour =</span> <span class="st">&quot;red&quot;</span>)<span class="sc">+</span></span>
<span id="cb234-5"><a href="anay_6800.html#cb234-5" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>(<span class="fu">aes</span>(<span class="at">x =</span> Cidiffusion, <span class="at">y =</span> Ahigh2), <span class="at">colour =</span> <span class="st">&quot;blue&quot;</span>)<span class="sc">+</span></span>
<span id="cb234-6"><a href="anay_6800.html#cb234-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>(<span class="fu">aes</span>(<span class="at">x =</span> Cidiffusion, <span class="at">y =</span> Ahigh), <span class="at">colour =</span> <span class="st">&quot;green&quot;</span>)<span class="sc">+</span></span>
<span id="cb234-7"><a href="anay_6800.html#cb234-7" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Total Resistance&#39;</span>)<span class="sc">+</span></span>
<span id="cb234-8"><a href="anay_6800.html#cb234-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb234-9"><a href="anay_6800.html#cb234-9" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb234-10"><a href="anay_6800.html#cb234-10" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits=</span><span class="fu">c</span>(<span class="dv">0</span>,<span class="dv">100</span>))<span class="sc">+</span></span>
<span id="cb234-11"><a href="anay_6800.html#cb234-11" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits=</span><span class="fu">c</span>(<span class="sc">-</span><span class="fl">2.5</span>,<span class="fl">2.5</span>))<span class="sc">+</span></span>
<span id="cb234-12"><a href="anay_6800.html#cb234-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb234-13"><a href="anay_6800.html#cb234-13" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">18</span>),</span>
<span id="cb234-14"><a href="anay_6800.html#cb234-14" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">15</span>),</span>
<span id="cb234-15"><a href="anay_6800.html#cb234-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="st">&#39;right&#39;</span>,</span>
<span id="cb234-16"><a href="anay_6800.html#cb234-16" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb234-17"><a href="anay_6800.html#cb234-17" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>()</span>
<span id="cb234-18"><a href="anay_6800.html#cb234-18" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb234-19"><a href="anay_6800.html#cb234-19" aria-hidden="true" tabindex="-1"></a>graph</span></code></pre></div>
<pre><code>## Warning: Removed 340 rows containing missing values (geom_point).

## Warning: Removed 340 rows containing missing values (geom_point).

## Warning: Removed 340 rows containing missing values (geom_point).</code></pre>
<div class="figure"><span style="display:block;" id="fig:difuci11"></span>
<img src="bookdown_files/figure-html/difuci11-1.png" alt="不同 Ci 扩散限制下的差异（resistance = 11）" width="672" />
<p class="caption">
图 10.14: 不同 Ci 扩散限制下的差异（resistance = 11）
</p>
</div>
<div class="sourceCode" id="cb236"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb236-1"><a href="anay_6800.html#cb236-1" aria-hidden="true" tabindex="-1"></a>data2 <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/DiffusionLimits.csv&quot;</span>)</span>
<span id="cb236-2"><a href="anay_6800.html#cb236-2" aria-hidden="true" tabindex="-1"></a>graph <span class="ot">&lt;-</span> <span class="fu">ggplot</span>(data2, <span class="fu">aes</span>(<span class="at">x =</span> TotalRes, <span class="at">y =</span> Rates, <span class="at">colour =</span> Scenario)) <span class="sc">+</span></span>
<span id="cb236-3"><a href="anay_6800.html#cb236-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>()<span class="sc">+</span></span>
<span id="cb236-4"><a href="anay_6800.html#cb236-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_brewer</span>(<span class="at">palette =</span> <span class="st">&#39;Spectral&#39;</span>) <span class="sc">+</span></span>
<span id="cb236-5"><a href="anay_6800.html#cb236-5" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb236-6"><a href="anay_6800.html#cb236-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb236-7"><a href="anay_6800.html#cb236-7" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">18</span>),</span>
<span id="cb236-8"><a href="anay_6800.html#cb236-8" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">12</span>),</span>
<span id="cb236-9"><a href="anay_6800.html#cb236-9" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb236-10"><a href="anay_6800.html#cb236-10" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>()</span>
<span id="cb236-11"><a href="anay_6800.html#cb236-11" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb236-12"><a href="anay_6800.html#cb236-12" aria-hidden="true" tabindex="-1"></a>graph</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:tolresis"></span>
<img src="bookdown_files/figure-html/tolresis-1.png" alt="不同总导度下的各个导度的速率变化" width="672" />
<p class="caption">
图 10.15: 不同总导度下的各个导度的速率变化
</p>
</div>
<div class="sourceCode" id="cb237"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb237-1"><a href="anay_6800.html#cb237-1" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(Rates <span class="sc">~</span> <span class="fu">I</span>(<span class="dv">1</span><span class="sc">/</span>TotalRes)<span class="sc">+</span><span class="fu">I</span>((<span class="dv">1</span><span class="sc">/</span>TotalRes)<span class="sc">^</span><span class="dv">2</span>),<span class="at">data=</span>data2)</span>
<span id="cb237-2"><a href="anay_6800.html#cb237-2" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = Rates ~ I(1/TotalRes) + I((1/TotalRes)^2), data = data2)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.3590 -0.9844 -0.1236  0.7706  2.4510 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         13.042      1.684   7.745 3.18e-06 ***
## I(1/TotalRes)      421.928     22.487  18.763 8.49e-11 ***
## I((1/TotalRes)^2) -737.690     65.500 -11.262 4.46e-08 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 1.705 on 13 degrees of freedom
## Multiple R-squared:  0.9904, Adjusted R-squared:  0.9889 
## F-statistic: 668.8 on 2 and 13 DF,  p-value: 7.799e-14</code></pre>
<div class="sourceCode" id="cb239"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb239-1"><a href="anay_6800.html#cb239-1" aria-hidden="true" tabindex="-1"></a>ab <span class="ot">&lt;-</span> <span class="fu">predict</span>(m1)</span>
<span id="cb239-2"><a href="anay_6800.html#cb239-2" aria-hidden="true" tabindex="-1"></a>red <span class="ot">&lt;-</span> <span class="dv">1</span><span class="sc">/</span>data2<span class="sc">$</span>TotalRes</span>
<span id="cb239-3"><a href="anay_6800.html#cb239-3" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(ab<span class="sc">~</span>red)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:tolre"></span>
<img src="bookdown_files/figure-html/tolre-1.png" alt="不同阻力下的各个导度的速率变化预测值" width="672" />
<p class="caption">
图 10.16: 不同阻力下的各个导度的速率变化预测值
</p>
</div>
<div id="multi14" class="section level3" number="10.9.1">
<h3><span class="header-section-number">10.9.1</span> 补偿点的计算</h3>
<p>计算补偿点，代码同前文类似，只是采用了不同导度下的数值：</p>
<div class="sourceCode" id="cb240"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb240-1"><a href="anay_6800.html#cb240-1" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/DiffusionLimitsACI2.csv&quot;</span>)</span>
<span id="cb240-2"><a href="anay_6800.html#cb240-2" aria-hidden="true" tabindex="-1"></a><span class="co">#Gamma</span></span>
<span id="cb240-3"><a href="anay_6800.html#cb240-3" aria-hidden="true" tabindex="-1"></a><span class="co"># For Ci-based estimates, only use Ci &lt; 100</span></span>
<span id="cb240-4"><a href="anay_6800.html#cb240-4" aria-hidden="true" tabindex="-1"></a>dataCi <span class="ot">&lt;-</span> data[data<span class="sc">$</span>Cidiffusion <span class="sc">&lt;</span> <span class="dv">100</span>, ]</span>
<span id="cb240-5"><a href="anay_6800.html#cb240-5" aria-hidden="true" tabindex="-1"></a>dataCi0125 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>conductance <span class="sc">==</span> <span class="st">&quot;0.125&quot;</span>, ]</span>
<span id="cb240-6"><a href="anay_6800.html#cb240-6" aria-hidden="true" tabindex="-1"></a>dataCi025 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>conductance <span class="sc">==</span> <span class="st">&quot;0.25&quot;</span>, ]</span>
<span id="cb240-7"><a href="anay_6800.html#cb240-7" aria-hidden="true" tabindex="-1"></a>dataCi05 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>conductance <span class="sc">==</span> <span class="st">&quot;0.5&quot;</span>, ]</span>
<span id="cb240-8"><a href="anay_6800.html#cb240-8" aria-hidden="true" tabindex="-1"></a>dataCi1 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>conductance <span class="sc">==</span> <span class="st">&quot;1&quot;</span>, ]</span>
<span id="cb240-9"><a href="anay_6800.html#cb240-9" aria-hidden="true" tabindex="-1"></a>dataCi2 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>conductance <span class="sc">==</span> <span class="st">&quot;2&quot;</span>, ]</span>
<span id="cb240-10"><a href="anay_6800.html#cb240-10" aria-hidden="true" tabindex="-1"></a>dataCi4 <span class="ot">&lt;-</span> dataCi[dataCi<span class="sc">$</span>conductance <span class="sc">==</span> <span class="st">&quot;4&quot;</span>, ]</span>
<span id="cb240-11"><a href="anay_6800.html#cb240-11" aria-hidden="true" tabindex="-1"></a>m1 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi0125<span class="sc">$</span>Ahigh <span class="sc">~</span> dataCi0125<span class="sc">$</span>Cidiffusion)</span>
<span id="cb240-12"><a href="anay_6800.html#cb240-12" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m1)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi0125$Ahigh ~ dataCi0125$Cidiffusion)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.040649 -0.014495  0.005307  0.017054  0.021232 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)            -3.836e+00  4.318e-03  -888.5   &lt;2e-16 ***
## dataCi0125$Cidiffusion  6.665e-02  7.873e-05   846.6   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.01934 on 52 degrees of freedom
## Multiple R-squared:  0.9999, Adjusted R-squared:  0.9999 
## F-statistic: 7.167e+05 on 1 and 52 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb242"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb242-1"><a href="anay_6800.html#cb242-1" aria-hidden="true" tabindex="-1"></a>Gamma0125 <span class="ot">&lt;-</span> <span class="sc">-</span>m1<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m1<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb242-2"><a href="anay_6800.html#cb242-2" aria-hidden="true" tabindex="-1"></a>m2 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi025<span class="sc">$</span>Ahigh <span class="sc">~</span> dataCi025<span class="sc">$</span>Cidiffusion)</span>
<span id="cb242-3"><a href="anay_6800.html#cb242-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m2)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi025$Ahigh ~ dataCi025$Cidiffusion)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.070876 -0.025427  0.009071  0.029765  0.036593 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)           -5.2507346  0.0092187  -569.6   &lt;2e-16 ***
## dataCi025$Cidiffusion  0.0904227  0.0001544   585.5   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.03329 on 59 degrees of freedom
## Multiple R-squared:  0.9998, Adjusted R-squared:  0.9998 
## F-statistic: 3.428e+05 on 1 and 59 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb244"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb244-1"><a href="anay_6800.html#cb244-1" aria-hidden="true" tabindex="-1"></a>Gamma025 <span class="ot">&lt;-</span> <span class="sc">-</span>m2<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m2<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb244-2"><a href="anay_6800.html#cb244-2" aria-hidden="true" tabindex="-1"></a>m3 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi05<span class="sc">$</span>Ahigh <span class="sc">~</span> dataCi05<span class="sc">$</span>Cidiffusion)</span>
<span id="cb244-3"><a href="anay_6800.html#cb244-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m3)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi05$Ahigh ~ dataCi05$Cidiffusion)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10435 -0.03583  0.01358  0.04311  0.05340 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)          -6.4051036  0.0150363    -426   &lt;2e-16 ***
## dataCi05$Cidiffusion  0.1097686  0.0002391     459   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.04851 on 65 degrees of freedom
## Multiple R-squared:  0.9997, Adjusted R-squared:  0.9997 
## F-statistic: 2.107e+05 on 1 and 65 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb246"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb246-1"><a href="anay_6800.html#cb246-1" aria-hidden="true" tabindex="-1"></a>Gamma05 <span class="ot">&lt;-</span> <span class="sc">-</span>m3<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m3<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb246-2"><a href="anay_6800.html#cb246-2" aria-hidden="true" tabindex="-1"></a>m4 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi1<span class="sc">$</span>Ahigh <span class="sc">~</span> dataCi1<span class="sc">$</span>Cidiffusion)</span>
<span id="cb246-3"><a href="anay_6800.html#cb246-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m4)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi1$Ahigh ~ dataCi1$Cidiffusion)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13150 -0.04513  0.01709  0.05402  0.06692 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         -7.1817472  0.0199135  -360.6   &lt;2e-16 ***
## dataCi1$Cidiffusion  0.1227771  0.0003085   398.0   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06074 on 69 degrees of freedom
## Multiple R-squared:  0.9996, Adjusted R-squared:  0.9996 
## F-statistic: 1.584e+05 on 1 and 69 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb248"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb248-1"><a href="anay_6800.html#cb248-1" aria-hidden="true" tabindex="-1"></a>Gamma1 <span class="ot">&lt;-</span> <span class="sc">-</span>m4<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m4<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb248-2"><a href="anay_6800.html#cb248-2" aria-hidden="true" tabindex="-1"></a>m5 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi2<span class="sc">$</span>Ahigh <span class="sc">~</span> dataCi2<span class="sc">$</span>Cidiffusion)</span>
<span id="cb248-3"><a href="anay_6800.html#cb248-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m5)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi2$Ahigh ~ dataCi2$Cidiffusion)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14803 -0.04874  0.01837  0.05995  0.07511 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         -7.6427727  0.0230595  -331.4   &lt;2e-16 ***
## dataCi2$Cidiffusion  0.1305083  0.0003538   368.9   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.06815 on 71 degrees of freedom
## Multiple R-squared:  0.9995, Adjusted R-squared:  0.9995 
## F-statistic: 1.361e+05 on 1 and 71 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb250"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb250-1"><a href="anay_6800.html#cb250-1" aria-hidden="true" tabindex="-1"></a>Gamma2 <span class="ot">&lt;-</span> <span class="sc">-</span>m5<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m5<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb250-2"><a href="anay_6800.html#cb250-2" aria-hidden="true" tabindex="-1"></a>m6 <span class="ot">&lt;-</span> <span class="fu">lm</span>(dataCi4<span class="sc">$</span>Ahigh <span class="sc">~</span> dataCi4<span class="sc">$</span>Cidiffusion)</span>
<span id="cb250-3"><a href="anay_6800.html#cb250-3" aria-hidden="true" tabindex="-1"></a><span class="fu">summary</span>(m6)</span></code></pre></div>
<pre><code>## 
## Call:
## lm(formula = dataCi4$Ahigh ~ dataCi4$Cidiffusion)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15721 -0.05258  0.01994  0.06470  0.07968 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(&gt;|t|)    
## (Intercept)         -7.8955772  0.0248634  -317.6   &lt;2e-16 ***
## dataCi4$Cidiffusion  0.1347503  0.0003799   354.7   &lt;2e-16 ***
## ---
## Signif. codes:  0 &#39;***&#39; 0.001 &#39;**&#39; 0.01 &#39;*&#39; 0.05 &#39;.&#39; 0.1 &#39; &#39; 1
## 
## Residual standard error: 0.07225 on 72 degrees of freedom
## Multiple R-squared:  0.9994, Adjusted R-squared:  0.9994 
## F-statistic: 1.258e+05 on 1 and 72 DF,  p-value: &lt; 2.2e-16</code></pre>
<div class="sourceCode" id="cb252"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb252-1"><a href="anay_6800.html#cb252-1" aria-hidden="true" tabindex="-1"></a>Gamma4 <span class="ot">&lt;-</span> <span class="sc">-</span>m6<span class="sc">$</span>coefficients[<span class="dv">1</span>] <span class="sc">/</span> m6<span class="sc">$</span>coefficients[<span class="dv">2</span>]</span>
<span id="cb252-2"><a href="anay_6800.html#cb252-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb252-3"><a href="anay_6800.html#cb252-3" aria-hidden="true" tabindex="-1"></a>GammaCi <span class="ot">&lt;-</span> <span class="fu">c</span>(Gamma0125, Gamma025, Gamma05, Gamma1, Gamma2, Gamma4)</span></code></pre></div>
</div>
<div id="multi15" class="section level3" number="10.9.2">
<h3><span class="header-section-number">10.9.2</span> 所有图形代码</h3>
<div class="sourceCode" id="cb253"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb253-1"><a href="anay_6800.html#cb253-1" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/PRdata.csv&quot;</span>)</span>
<span id="cb253-2"><a href="anay_6800.html#cb253-2" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Ccfull <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(data<span class="sc">$</span>Ccfull)</span>
<span id="cb253-3"><a href="anay_6800.html#cb253-3" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Delay <span class="ot">&lt;-</span> <span class="fu">as.factor</span>(data<span class="sc">$</span>Delay)</span>
<span id="cb253-4"><a href="anay_6800.html#cb253-4" aria-hidden="true" tabindex="-1"></a>cols <span class="ot">&lt;-</span> <span class="fu">gg_color_hue</span>(<span class="dv">6</span>)</span>
<span id="cb253-5"><a href="anay_6800.html#cb253-5" aria-hidden="true" tabindex="-1"></a>Panel_1A <span class="ot">&lt;-</span></span>
<span id="cb253-6"><a href="anay_6800.html#cb253-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(</span>
<span id="cb253-7"><a href="anay_6800.html#cb253-7" aria-hidden="true" tabindex="-1"></a>    <span class="at">x =</span> Cifull,</span>
<span id="cb253-8"><a href="anay_6800.html#cb253-8" aria-hidden="true" tabindex="-1"></a>    <span class="at">y =</span> Anet,</span>
<span id="cb253-9"><a href="anay_6800.html#cb253-9" aria-hidden="true" tabindex="-1"></a>    <span class="at">colour =</span> Delay,</span>
<span id="cb253-10"><a href="anay_6800.html#cb253-10" aria-hidden="true" tabindex="-1"></a>    <span class="at">linetype =</span> Delay</span>
<span id="cb253-11"><a href="anay_6800.html#cb253-11" aria-hidden="true" tabindex="-1"></a>  )) <span class="sc">+</span></span>
<span id="cb253-12"><a href="anay_6800.html#cb253-12" aria-hidden="true" tabindex="-1"></a>  <span class="co"># 零水平参考线</span></span>
<span id="cb253-13"><a href="anay_6800.html#cb253-13" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_abline</span>(<span class="at">slope =</span> <span class="dv">0</span>,</span>
<span id="cb253-14"><a href="anay_6800.html#cb253-14" aria-hidden="true" tabindex="-1"></a>              <span class="at">intercept =</span> <span class="dv">0</span>,</span>
<span id="cb253-15"><a href="anay_6800.html#cb253-15" aria-hidden="true" tabindex="-1"></a>              <span class="at">size =</span> <span class="fl">1.5</span>) <span class="sc">+</span></span>
<span id="cb253-16"><a href="anay_6800.html#cb253-16" aria-hidden="true" tabindex="-1"></a>  <span class="co">#ci与A loess 方法的拟合曲线</span></span>
<span id="cb253-17"><a href="anay_6800.html#cb253-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_smooth</span>(<span class="at">method =</span> <span class="st">&quot;loess&quot;</span>, <span class="at">se =</span> <span class="cn">FALSE</span>, <span class="at">size =</span> <span class="dv">2</span>) <span class="sc">+</span></span>
<span id="cb253-18"><a href="anay_6800.html#cb253-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_linetype_manual</span>(</span>
<span id="cb253-19"><a href="anay_6800.html#cb253-19" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Delay (s)&quot;</span>,</span>
<span id="cb253-20"><a href="anay_6800.html#cb253-20" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;0&quot;</span>, <span class="st">&quot;15&quot;</span>, <span class="st">&quot;30&quot;</span>, <span class="st">&quot;60&quot;</span>, <span class="st">&quot;120&quot;</span>, <span class="st">&quot;300&quot;</span>),</span>
<span id="cb253-21"><a href="anay_6800.html#cb253-21" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> <span class="fu">c</span>(<span class="st">&quot;solid&quot;</span>, <span class="st">&quot;longdash&quot;</span>, <span class="st">&quot;twodash&quot;</span>, <span class="st">&quot;dotdash&quot;</span>, <span class="st">&quot;dashed&quot;</span>, <span class="st">&quot;dotted&quot;</span>)</span>
<span id="cb253-22"><a href="anay_6800.html#cb253-22" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb253-23"><a href="anay_6800.html#cb253-23" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggtitle</span>(<span class="fu">expression</span>(<span class="fu">paste</span>(</span>
<span id="cb253-24"><a href="anay_6800.html#cb253-24" aria-hidden="true" tabindex="-1"></a>    <span class="fu">bold</span>(<span class="st">&quot;(a)&quot;</span>), <span class="st">&quot; Modelled Photorespiratory Effect&quot;</span></span>
<span id="cb253-25"><a href="anay_6800.html#cb253-25" aria-hidden="true" tabindex="-1"></a>  ))) <span class="sc">+</span></span>
<span id="cb253-26"><a href="anay_6800.html#cb253-26" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb253-27"><a href="anay_6800.html#cb253-27" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb253-28"><a href="anay_6800.html#cb253-28" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb253-29"><a href="anay_6800.html#cb253-29" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb253-30"><a href="anay_6800.html#cb253-30" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb253-31"><a href="anay_6800.html#cb253-31" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb253-32"><a href="anay_6800.html#cb253-32" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb253-33"><a href="anay_6800.html#cb253-33" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb253-34"><a href="anay_6800.html#cb253-34" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Delay (s)&#39;</span>) <span class="sc">+</span></span>
<span id="cb253-35"><a href="anay_6800.html#cb253-35" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">0</span>, <span class="dv">250</span>)) <span class="sc">+</span></span>
<span id="cb253-36"><a href="anay_6800.html#cb253-36" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">20</span>)) <span class="sc">+</span></span>
<span id="cb253-37"><a href="anay_6800.html#cb253-37" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_manual</span>(</span>
<span id="cb253-38"><a href="anay_6800.html#cb253-38" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> cols,</span>
<span id="cb253-39"><a href="anay_6800.html#cb253-39" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Delay (s)&quot;</span>,</span>
<span id="cb253-40"><a href="anay_6800.html#cb253-40" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;0&quot;</span>, <span class="st">&quot;15&quot;</span>, <span class="st">&quot;30&quot;</span>, <span class="st">&quot;60&quot;</span>, <span class="st">&quot;120&quot;</span>, <span class="st">&quot;300&quot;</span>)</span>
<span id="cb253-41"><a href="anay_6800.html#cb253-41" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb253-42"><a href="anay_6800.html#cb253-42" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb253-43"><a href="anay_6800.html#cb253-43" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb253-44"><a href="anay_6800.html#cb253-44" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb253-45"><a href="anay_6800.html#cb253-45" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.y =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb253-46"><a href="anay_6800.html#cb253-46" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.line =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="dv">1</span>),</span>
<span id="cb253-47"><a href="anay_6800.html#cb253-47" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="fl">1.5</span>),</span>
<span id="cb253-48"><a href="anay_6800.html#cb253-48" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks.length =</span> <span class="fu">unit</span>(<span class="fl">1.5</span>, <span class="st">&quot;mm&quot;</span>),</span>
<span id="cb253-49"><a href="anay_6800.html#cb253-49" aria-hidden="true" tabindex="-1"></a>    <span class="at">rect =</span> <span class="fu">element_rect</span>(<span class="at">size =</span> <span class="dv">2</span>),</span>
<span id="cb253-50"><a href="anay_6800.html#cb253-50" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>, <span class="at">color =</span> <span class="st">&#39;black&#39;</span>),</span>
<span id="cb253-51"><a href="anay_6800.html#cb253-51" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.y =</span></span>
<span id="cb253-52"><a href="anay_6800.html#cb253-52" aria-hidden="true" tabindex="-1"></a>      <span class="fu">element_text</span>(</span>
<span id="cb253-53"><a href="anay_6800.html#cb253-53" aria-hidden="true" tabindex="-1"></a>        <span class="at">size =</span> <span class="dv">14</span>,</span>
<span id="cb253-54"><a href="anay_6800.html#cb253-54" aria-hidden="true" tabindex="-1"></a>        <span class="at">color =</span> <span class="st">&#39;black&#39;</span>,</span>
<span id="cb253-55"><a href="anay_6800.html#cb253-55" aria-hidden="true" tabindex="-1"></a>        <span class="at">hjust =</span> (<span class="dv">1</span>)</span>
<span id="cb253-56"><a href="anay_6800.html#cb253-56" aria-hidden="true" tabindex="-1"></a>      ),</span>
<span id="cb253-57"><a href="anay_6800.html#cb253-57" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="fu">c</span>(<span class="fl">0.15</span>, <span class="fl">0.75</span>),</span>
<span id="cb253-58"><a href="anay_6800.html#cb253-58" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">18</span>),</span>
<span id="cb253-59"><a href="anay_6800.html#cb253-59" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">12</span>, <span class="at">color =</span> <span class="st">&quot;black&quot;</span>),</span>
<span id="cb253-60"><a href="anay_6800.html#cb253-60" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb253-61"><a href="anay_6800.html#cb253-61" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb253-62"><a href="anay_6800.html#cb253-62" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>),</span>
<span id="cb253-63"><a href="anay_6800.html#cb253-63" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>)</span>
<span id="cb253-64"><a href="anay_6800.html#cb253-64" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb253-65"><a href="anay_6800.html#cb253-65" aria-hidden="true" tabindex="-1"></a>Panel_1A</span></code></pre></div>
<pre><code>## Warning: Removed 1029 rows containing non-finite values (stat_smooth).</code></pre>
<div class="figure"><span style="display:block;" id="fig:prdataplot"></span>
<img src="bookdown_files/figure-html/prdataplot-1.png" alt="不同时间滞后性的 Anet VS Ci" width="672" />
<p class="caption">
图 10.17: 不同时间滞后性的 Anet VS Ci
</p>
</div>
<div class="sourceCode" id="cb255"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb255-1"><a href="anay_6800.html#cb255-1" aria-hidden="true" tabindex="-1"></a>Panel_1A_inset <span class="ot">&lt;-</span></span>
<span id="cb255-2"><a href="anay_6800.html#cb255-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data, <span class="fu">aes</span>(</span>
<span id="cb255-3"><a href="anay_6800.html#cb255-3" aria-hidden="true" tabindex="-1"></a>    <span class="at">x =</span> Cifull,</span>
<span id="cb255-4"><a href="anay_6800.html#cb255-4" aria-hidden="true" tabindex="-1"></a>    <span class="at">y =</span> Anet,</span>
<span id="cb255-5"><a href="anay_6800.html#cb255-5" aria-hidden="true" tabindex="-1"></a>    <span class="at">colour =</span> Delay,</span>
<span id="cb255-6"><a href="anay_6800.html#cb255-6" aria-hidden="true" tabindex="-1"></a>    <span class="at">linetype =</span> Delay</span>
<span id="cb255-7"><a href="anay_6800.html#cb255-7" aria-hidden="true" tabindex="-1"></a>  )) <span class="sc">+</span></span>
<span id="cb255-8"><a href="anay_6800.html#cb255-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_abline</span>(<span class="at">slope =</span> <span class="dv">0</span>,</span>
<span id="cb255-9"><a href="anay_6800.html#cb255-9" aria-hidden="true" tabindex="-1"></a>              <span class="at">intercept =</span> <span class="dv">0</span>,</span>
<span id="cb255-10"><a href="anay_6800.html#cb255-10" aria-hidden="true" tabindex="-1"></a>              <span class="at">size =</span> <span class="fl">1.5</span>) <span class="sc">+</span></span>
<span id="cb255-11"><a href="anay_6800.html#cb255-11" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_smooth</span>(<span class="at">method =</span> <span class="st">&quot;loess&quot;</span>, <span class="at">se =</span> <span class="cn">FALSE</span>, <span class="at">size =</span> <span class="dv">2</span>) <span class="sc">+</span></span>
<span id="cb255-12"><a href="anay_6800.html#cb255-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_linetype_manual</span>(</span>
<span id="cb255-13"><a href="anay_6800.html#cb255-13" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Delay (s)&quot;</span>,</span>
<span id="cb255-14"><a href="anay_6800.html#cb255-14" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;0&quot;</span>, <span class="st">&quot;15&quot;</span>, <span class="st">&quot;30&quot;</span>, <span class="st">&quot;60&quot;</span>, <span class="st">&quot;120&quot;</span>, <span class="st">&quot;300&quot;</span>),</span>
<span id="cb255-15"><a href="anay_6800.html#cb255-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> <span class="fu">c</span>(<span class="st">&quot;solid&quot;</span>, <span class="st">&quot;longdash&quot;</span>, <span class="st">&quot;twodash&quot;</span>, <span class="st">&quot;dotdash&quot;</span>, <span class="st">&quot;dashed&quot;</span>, <span class="st">&quot;dotted&quot;</span>)</span>
<span id="cb255-16"><a href="anay_6800.html#cb255-16" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb255-17"><a href="anay_6800.html#cb255-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb255-18"><a href="anay_6800.html#cb255-18" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb255-19"><a href="anay_6800.html#cb255-19" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb255-20"><a href="anay_6800.html#cb255-20" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb255-21"><a href="anay_6800.html#cb255-21" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb255-22"><a href="anay_6800.html#cb255-22" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb255-23"><a href="anay_6800.html#cb255-23" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb255-24"><a href="anay_6800.html#cb255-24" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb255-25"><a href="anay_6800.html#cb255-25" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Delay (s)&#39;</span>) <span class="sc">+</span></span>
<span id="cb255-26"><a href="anay_6800.html#cb255-26" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">45</span>, <span class="dv">65</span>)) <span class="sc">+</span></span>
<span id="cb255-27"><a href="anay_6800.html#cb255-27" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">1</span>, <span class="dv">1</span>), <span class="at">breaks =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">1</span>, <span class="dv">0</span>, <span class="dv">1</span>)) <span class="sc">+</span></span>
<span id="cb255-28"><a href="anay_6800.html#cb255-28" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_colour_manual</span>(<span class="at">values =</span> cols) <span class="sc">+</span></span>
<span id="cb255-29"><a href="anay_6800.html#cb255-29" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb255-30"><a href="anay_6800.html#cb255-30" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb255-31"><a href="anay_6800.html#cb255-31" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.x =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb255-32"><a href="anay_6800.html#cb255-32" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.y =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb255-33"><a href="anay_6800.html#cb255-33" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.line =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="dv">1</span>),</span>
<span id="cb255-34"><a href="anay_6800.html#cb255-34" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="fl">1.5</span>),</span>
<span id="cb255-35"><a href="anay_6800.html#cb255-35" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks.length =</span> <span class="fu">unit</span>(<span class="fl">1.5</span>, <span class="st">&quot;mm&quot;</span>),</span>
<span id="cb255-36"><a href="anay_6800.html#cb255-36" aria-hidden="true" tabindex="-1"></a>    <span class="at">rect =</span> <span class="fu">element_rect</span>(<span class="at">size =</span> <span class="dv">2</span>),</span>
<span id="cb255-37"><a href="anay_6800.html#cb255-37" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>, <span class="at">color =</span> <span class="st">&#39;black&#39;</span>),</span>
<span id="cb255-38"><a href="anay_6800.html#cb255-38" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.y =</span></span>
<span id="cb255-39"><a href="anay_6800.html#cb255-39" aria-hidden="true" tabindex="-1"></a>      <span class="fu">element_text</span>(</span>
<span id="cb255-40"><a href="anay_6800.html#cb255-40" aria-hidden="true" tabindex="-1"></a>        <span class="at">size =</span> <span class="dv">14</span>,</span>
<span id="cb255-41"><a href="anay_6800.html#cb255-41" aria-hidden="true" tabindex="-1"></a>        <span class="at">color =</span> <span class="st">&#39;black&#39;</span>,</span>
<span id="cb255-42"><a href="anay_6800.html#cb255-42" aria-hidden="true" tabindex="-1"></a>        <span class="at">hjust =</span> (<span class="dv">1</span>)</span>
<span id="cb255-43"><a href="anay_6800.html#cb255-43" aria-hidden="true" tabindex="-1"></a>      ),</span>
<span id="cb255-44"><a href="anay_6800.html#cb255-44" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb255-45"><a href="anay_6800.html#cb255-45" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">12</span>, <span class="at">color =</span> <span class="st">&quot;black&quot;</span>),</span>
<span id="cb255-46"><a href="anay_6800.html#cb255-46" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb255-47"><a href="anay_6800.html#cb255-47" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb255-48"><a href="anay_6800.html#cb255-48" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="st">&#39;none&#39;</span>,</span>
<span id="cb255-49"><a href="anay_6800.html#cb255-49" aria-hidden="true" tabindex="-1"></a>    <span class="at">plot.background =</span> <span class="fu">element_blank</span>()</span>
<span id="cb255-50"><a href="anay_6800.html#cb255-50" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb255-51"><a href="anay_6800.html#cb255-51" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb255-52"><a href="anay_6800.html#cb255-52" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb255-53"><a href="anay_6800.html#cb255-53" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb255-54"><a href="anay_6800.html#cb255-54" aria-hidden="true" tabindex="-1"></a>cols <span class="ot">&lt;-</span> <span class="fu">gg_color_hue</span>(<span class="dv">6</span>)</span>
<span id="cb255-55"><a href="anay_6800.html#cb255-55" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb255-56"><a href="anay_6800.html#cb255-56" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/DiffusionLimitsACI2.csv&quot;</span>)</span>
<span id="cb255-57"><a href="anay_6800.html#cb255-57" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>resistance <span class="ot">&lt;-</span> <span class="fu">as.factor</span>(data<span class="sc">$</span>resistance)</span>
<span id="cb255-58"><a href="anay_6800.html#cb255-58" aria-hidden="true" tabindex="-1"></a>Panel_1Db <span class="ot">&lt;-</span></span>
<span id="cb255-59"><a href="anay_6800.html#cb255-59" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data,</span>
<span id="cb255-60"><a href="anay_6800.html#cb255-60" aria-hidden="true" tabindex="-1"></a>         <span class="fu">aes</span>(</span>
<span id="cb255-61"><a href="anay_6800.html#cb255-61" aria-hidden="true" tabindex="-1"></a>           <span class="at">x =</span> Cidiffusion,</span>
<span id="cb255-62"><a href="anay_6800.html#cb255-62" aria-hidden="true" tabindex="-1"></a>           <span class="at">y =</span> Ahigh,</span>
<span id="cb255-63"><a href="anay_6800.html#cb255-63" aria-hidden="true" tabindex="-1"></a>           <span class="at">colour =</span> resistance,</span>
<span id="cb255-64"><a href="anay_6800.html#cb255-64" aria-hidden="true" tabindex="-1"></a>           <span class="at">linetype =</span> resistance</span>
<span id="cb255-65"><a href="anay_6800.html#cb255-65" aria-hidden="true" tabindex="-1"></a>         )) <span class="sc">+</span></span>
<span id="cb255-66"><a href="anay_6800.html#cb255-66" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_abline</span>(<span class="at">slope =</span> <span class="dv">0</span>,</span>
<span id="cb255-67"><a href="anay_6800.html#cb255-67" aria-hidden="true" tabindex="-1"></a>              <span class="at">intercept =</span> <span class="dv">0</span>,</span>
<span id="cb255-68"><a href="anay_6800.html#cb255-68" aria-hidden="true" tabindex="-1"></a>              <span class="at">size =</span> <span class="fl">1.5</span>) <span class="sc">+</span></span>
<span id="cb255-69"><a href="anay_6800.html#cb255-69" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_smooth</span>(<span class="at">method =</span> <span class="st">&quot;loess&quot;</span>, <span class="at">se =</span> <span class="cn">FALSE</span>, <span class="at">size =</span> <span class="dv">2</span>) <span class="sc">+</span></span>
<span id="cb255-70"><a href="anay_6800.html#cb255-70" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_linetype_manual</span>(</span>
<span id="cb255-71"><a href="anay_6800.html#cb255-71" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Total Resistance&quot;</span>,</span>
<span id="cb255-72"><a href="anay_6800.html#cb255-72" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;3.25&quot;</span>, <span class="st">&quot;3.5&quot;</span>, <span class="st">&quot;4&quot;</span>, <span class="st">&quot;5&quot;</span>, <span class="st">&quot;7&quot;</span>, <span class="st">&quot;11&quot;</span>),</span>
<span id="cb255-73"><a href="anay_6800.html#cb255-73" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> <span class="fu">c</span>(<span class="st">&quot;solid&quot;</span>, <span class="st">&quot;longdash&quot;</span>, <span class="st">&quot;twodash&quot;</span>, <span class="st">&quot;dotdash&quot;</span>, <span class="st">&quot;dashed&quot;</span>, <span class="st">&quot;dotted&quot;</span>)</span>
<span id="cb255-74"><a href="anay_6800.html#cb255-74" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb255-75"><a href="anay_6800.html#cb255-75" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggtitle</span>(<span class="fu">expression</span>(<span class="fu">paste</span>(<span class="fu">bold</span>(<span class="st">&quot;(d)&quot;</span>), <span class="st">&quot; Modelled Resistance Effect&quot;</span>))) <span class="sc">+</span></span>
<span id="cb255-76"><a href="anay_6800.html#cb255-76" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_color_manual</span>(</span>
<span id="cb255-77"><a href="anay_6800.html#cb255-77" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> cols,</span>
<span id="cb255-78"><a href="anay_6800.html#cb255-78" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Total Resistance&quot;</span>,</span>
<span id="cb255-79"><a href="anay_6800.html#cb255-79" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;3.25&quot;</span>, <span class="st">&quot;3.5&quot;</span>, <span class="st">&quot;4&quot;</span>, <span class="st">&quot;5&quot;</span>, <span class="st">&quot;7&quot;</span>, <span class="st">&quot;11&quot;</span>)</span>
<span id="cb255-80"><a href="anay_6800.html#cb255-80" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb255-81"><a href="anay_6800.html#cb255-81" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb255-82"><a href="anay_6800.html#cb255-82" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(<span class="fu">paste</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb255-83"><a href="anay_6800.html#cb255-83" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb255-84"><a href="anay_6800.html#cb255-84" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)), <span class="at">y =</span> <span class="fu">expression</span>(<span class="fu">paste</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb255-85"><a href="anay_6800.html#cb255-85" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb255-86"><a href="anay_6800.html#cb255-86" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb255-87"><a href="anay_6800.html#cb255-87" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb255-88"><a href="anay_6800.html#cb255-88" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>))) <span class="sc">+</span></span>
<span id="cb255-89"><a href="anay_6800.html#cb255-89" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">0</span>, <span class="dv">250</span>)) <span class="sc">+</span></span>
<span id="cb255-90"><a href="anay_6800.html#cb255-90" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">20</span>)) <span class="sc">+</span></span>
<span id="cb255-91"><a href="anay_6800.html#cb255-91" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb255-92"><a href="anay_6800.html#cb255-92" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb255-93"><a href="anay_6800.html#cb255-93" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.y =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb255-94"><a href="anay_6800.html#cb255-94" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.line =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="dv">1</span>),</span>
<span id="cb255-95"><a href="anay_6800.html#cb255-95" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="fl">1.5</span>),</span>
<span id="cb255-96"><a href="anay_6800.html#cb255-96" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks.length =</span> <span class="fu">unit</span>(<span class="fl">1.5</span>, <span class="st">&quot;mm&quot;</span>),</span>
<span id="cb255-97"><a href="anay_6800.html#cb255-97" aria-hidden="true" tabindex="-1"></a>    <span class="at">rect =</span> <span class="fu">element_rect</span>(<span class="at">size =</span> <span class="dv">2</span>),</span>
<span id="cb255-98"><a href="anay_6800.html#cb255-98" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>, <span class="at">color =</span> <span class="st">&#39;black&#39;</span>),</span>
<span id="cb255-99"><a href="anay_6800.html#cb255-99" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.y =</span></span>
<span id="cb255-100"><a href="anay_6800.html#cb255-100" aria-hidden="true" tabindex="-1"></a>      <span class="fu">element_text</span>(</span>
<span id="cb255-101"><a href="anay_6800.html#cb255-101" aria-hidden="true" tabindex="-1"></a>        <span class="at">size =</span> <span class="dv">14</span>,</span>
<span id="cb255-102"><a href="anay_6800.html#cb255-102" aria-hidden="true" tabindex="-1"></a>        <span class="at">color =</span> <span class="st">&#39;black&#39;</span>,</span>
<span id="cb255-103"><a href="anay_6800.html#cb255-103" aria-hidden="true" tabindex="-1"></a>        <span class="at">hjust =</span> (<span class="dv">1</span>)</span>
<span id="cb255-104"><a href="anay_6800.html#cb255-104" aria-hidden="true" tabindex="-1"></a>      ),</span>
<span id="cb255-105"><a href="anay_6800.html#cb255-105" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="fu">c</span>(<span class="fl">0.22</span>, <span class="fl">0.75</span>),</span>
<span id="cb255-106"><a href="anay_6800.html#cb255-106" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">18</span>),</span>
<span id="cb255-107"><a href="anay_6800.html#cb255-107" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">12</span>, <span class="at">color =</span> <span class="st">&quot;black&quot;</span>),</span>
<span id="cb255-108"><a href="anay_6800.html#cb255-108" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb255-109"><a href="anay_6800.html#cb255-109" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb255-110"><a href="anay_6800.html#cb255-110" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>),</span>
<span id="cb255-111"><a href="anay_6800.html#cb255-111" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>)</span>
<span id="cb255-112"><a href="anay_6800.html#cb255-112" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb255-113"><a href="anay_6800.html#cb255-113" aria-hidden="true" tabindex="-1"></a>Panel_1Db</span></code></pre></div>
<pre><code>## Warning: Removed 1159 rows containing non-finite values (stat_smooth).</code></pre>
<div class="figure"><span style="display:block;" id="fig:resistplot"></span>
<img src="bookdown_files/figure-html/resistplot-1.png" alt="不同总阻力下的 Anet VS Ci" width="672" />
<p class="caption">
图 10.18: 不同总阻力下的 Anet VS Ci
</p>
</div>
<div class="sourceCode" id="cb257"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb257-1"><a href="anay_6800.html#cb257-1" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/DiffusionLimitsACI2.csv&quot;</span>)</span>
<span id="cb257-2"><a href="anay_6800.html#cb257-2" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>resistance <span class="ot">&lt;-</span> <span class="fu">as.factor</span>(data<span class="sc">$</span>resistance)</span>
<span id="cb257-3"><a href="anay_6800.html#cb257-3" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> data[data<span class="sc">$</span>resistance <span class="sc">==</span> <span class="st">&quot;11&quot;</span>,]</span>
<span id="cb257-4"><a href="anay_6800.html#cb257-4" aria-hidden="true" tabindex="-1"></a>resistance <span class="ot">&lt;-</span> <span class="fu">rep</span>(data<span class="sc">$</span>resistance, <span class="dv">3</span>)</span>
<span id="cb257-5"><a href="anay_6800.html#cb257-5" aria-hidden="true" tabindex="-1"></a>Cidiffusion <span class="ot">&lt;-</span> <span class="fu">rep</span>(data<span class="sc">$</span>Cidffusion, <span class="dv">3</span>)</span>
<span id="cb257-6"><a href="anay_6800.html#cb257-6" aria-hidden="true" tabindex="-1"></a>A <span class="ot">&lt;-</span> <span class="fu">c</span>(data<span class="sc">$</span>Ahigh, data<span class="sc">$</span>Ahigh2, data<span class="sc">$</span>Ahigh3)</span>
<span id="cb257-7"><a href="anay_6800.html#cb257-7" aria-hidden="true" tabindex="-1"></a>Rate <span class="ot">&lt;-</span></span>
<span id="cb257-8"><a href="anay_6800.html#cb257-8" aria-hidden="true" tabindex="-1"></a>  <span class="fu">c</span>(<span class="fu">rep</span>(<span class="dv">100</span>, <span class="fu">length</span>(data<span class="sc">$</span>Ahigh)), <span class="fu">rep</span>(<span class="dv">200</span>, <span class="fu">length</span>(data<span class="sc">$</span>Ahigh2)), <span class="fu">rep</span>(<span class="dv">300</span>, <span class="fu">length</span>(data<span class="sc">$</span>Ahigh3)))</span>
<span id="cb257-9"><a href="anay_6800.html#cb257-9" aria-hidden="true" tabindex="-1"></a>data3 <span class="ot">&lt;-</span> <span class="fu">rbind</span>(data, data, data)</span>
<span id="cb257-10"><a href="anay_6800.html#cb257-10" aria-hidden="true" tabindex="-1"></a>data3<span class="sc">$</span>A <span class="ot">&lt;-</span> <span class="fu">c</span>(data<span class="sc">$</span>Ahigh, data<span class="sc">$</span>Ahigh2, data<span class="sc">$</span>Ahigh3)</span>
<span id="cb257-11"><a href="anay_6800.html#cb257-11" aria-hidden="true" tabindex="-1"></a>data3<span class="sc">$</span>Rate <span class="ot">&lt;-</span></span>
<span id="cb257-12"><a href="anay_6800.html#cb257-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.factor</span>(<span class="fu">c</span>(<span class="fu">rep</span>(<span class="dv">100</span>, <span class="fu">length</span>(data<span class="sc">$</span>Ahigh)), <span class="fu">rep</span>(<span class="dv">200</span>, <span class="fu">length</span>(data<span class="sc">$</span>Ahigh2)), <span class="fu">rep</span>(<span class="dv">300</span>, <span class="fu">length</span>(data<span class="sc">$</span>Ahigh3))))</span>
<span id="cb257-13"><a href="anay_6800.html#cb257-13" aria-hidden="true" tabindex="-1"></a>Panel_1Dbinset <span class="ot">&lt;-</span></span>
<span id="cb257-14"><a href="anay_6800.html#cb257-14" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data3, <span class="fu">aes</span>(</span>
<span id="cb257-15"><a href="anay_6800.html#cb257-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">x =</span> Cidiffusion,</span>
<span id="cb257-16"><a href="anay_6800.html#cb257-16" aria-hidden="true" tabindex="-1"></a>    <span class="at">y =</span> A,</span>
<span id="cb257-17"><a href="anay_6800.html#cb257-17" aria-hidden="true" tabindex="-1"></a>    <span class="at">colour =</span> Rate,</span>
<span id="cb257-18"><a href="anay_6800.html#cb257-18" aria-hidden="true" tabindex="-1"></a>    <span class="at">linetype =</span> Rate</span>
<span id="cb257-19"><a href="anay_6800.html#cb257-19" aria-hidden="true" tabindex="-1"></a>  )) <span class="sc">+</span></span>
<span id="cb257-20"><a href="anay_6800.html#cb257-20" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_abline</span>(<span class="at">slope =</span> <span class="dv">0</span>,</span>
<span id="cb257-21"><a href="anay_6800.html#cb257-21" aria-hidden="true" tabindex="-1"></a>              <span class="at">intercept =</span> <span class="dv">0</span>,</span>
<span id="cb257-22"><a href="anay_6800.html#cb257-22" aria-hidden="true" tabindex="-1"></a>              <span class="at">size =</span> <span class="fl">1.5</span>) <span class="sc">+</span></span>
<span id="cb257-23"><a href="anay_6800.html#cb257-23" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_smooth</span>(<span class="at">method =</span> <span class="st">&quot;loess&quot;</span>, <span class="at">se =</span> <span class="cn">FALSE</span>, <span class="at">size =</span> <span class="dv">2</span>) <span class="sc">+</span></span>
<span id="cb257-24"><a href="anay_6800.html#cb257-24" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_linetype_manual</span>(</span>
<span id="cb257-25"><a href="anay_6800.html#cb257-25" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Rate&quot;</span>,</span>
<span id="cb257-26"><a href="anay_6800.html#cb257-26" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;100&quot;</span>, <span class="st">&quot;200&quot;</span>, <span class="st">&quot;300&quot;</span>),</span>
<span id="cb257-27"><a href="anay_6800.html#cb257-27" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> <span class="fu">c</span>(<span class="st">&quot;solid&quot;</span>, <span class="st">&quot;longdash&quot;</span>, <span class="st">&quot;twodash&quot;</span>)</span>
<span id="cb257-28"><a href="anay_6800.html#cb257-28" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb257-29"><a href="anay_6800.html#cb257-29" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_color_manual</span>(</span>
<span id="cb257-30"><a href="anay_6800.html#cb257-30" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> cols,</span>
<span id="cb257-31"><a href="anay_6800.html#cb257-31" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Rate&quot;</span>,</span>
<span id="cb257-32"><a href="anay_6800.html#cb257-32" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;100&quot;</span>, <span class="st">&quot;200&quot;</span>, <span class="st">&quot;300&quot;</span>)</span>
<span id="cb257-33"><a href="anay_6800.html#cb257-33" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb257-34"><a href="anay_6800.html#cb257-34" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb257-35"><a href="anay_6800.html#cb257-35" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(<span class="fu">paste</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb257-36"><a href="anay_6800.html#cb257-36" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb257-37"><a href="anay_6800.html#cb257-37" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)), <span class="at">y =</span> <span class="fu">expression</span>(<span class="fu">paste</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb257-38"><a href="anay_6800.html#cb257-38" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb257-39"><a href="anay_6800.html#cb257-39" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb257-40"><a href="anay_6800.html#cb257-40" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb257-41"><a href="anay_6800.html#cb257-41" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>))) <span class="sc">+</span></span>
<span id="cb257-42"><a href="anay_6800.html#cb257-42" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">45</span>, <span class="dv">65</span>)) <span class="sc">+</span></span>
<span id="cb257-43"><a href="anay_6800.html#cb257-43" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">1</span>, <span class="dv">1</span>), <span class="at">breaks =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">1</span>, <span class="dv">0</span>, <span class="dv">1</span>)) <span class="sc">+</span></span>
<span id="cb257-44"><a href="anay_6800.html#cb257-44" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb257-45"><a href="anay_6800.html#cb257-45" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.x =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb257-46"><a href="anay_6800.html#cb257-46" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.y =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb257-47"><a href="anay_6800.html#cb257-47" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.line =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="dv">1</span>),</span>
<span id="cb257-48"><a href="anay_6800.html#cb257-48" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="fl">1.5</span>),</span>
<span id="cb257-49"><a href="anay_6800.html#cb257-49" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks.length =</span> <span class="fu">unit</span>(<span class="fl">1.5</span>, <span class="st">&quot;mm&quot;</span>),</span>
<span id="cb257-50"><a href="anay_6800.html#cb257-50" aria-hidden="true" tabindex="-1"></a>    <span class="at">rect =</span> <span class="fu">element_rect</span>(<span class="at">size =</span> <span class="dv">2</span>),</span>
<span id="cb257-51"><a href="anay_6800.html#cb257-51" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>, <span class="at">color =</span> <span class="st">&#39;black&#39;</span>),</span>
<span id="cb257-52"><a href="anay_6800.html#cb257-52" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.y =</span></span>
<span id="cb257-53"><a href="anay_6800.html#cb257-53" aria-hidden="true" tabindex="-1"></a>      <span class="fu">element_text</span>(</span>
<span id="cb257-54"><a href="anay_6800.html#cb257-54" aria-hidden="true" tabindex="-1"></a>        <span class="at">size =</span> <span class="dv">14</span>,</span>
<span id="cb257-55"><a href="anay_6800.html#cb257-55" aria-hidden="true" tabindex="-1"></a>        <span class="at">color =</span> <span class="st">&#39;black&#39;</span>,</span>
<span id="cb257-56"><a href="anay_6800.html#cb257-56" aria-hidden="true" tabindex="-1"></a>        <span class="at">hjust =</span> (<span class="dv">1</span>)</span>
<span id="cb257-57"><a href="anay_6800.html#cb257-57" aria-hidden="true" tabindex="-1"></a>      ),</span>
<span id="cb257-58"><a href="anay_6800.html#cb257-58" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="fu">c</span>(<span class="fl">0.22</span>, <span class="fl">0.75</span>),</span>
<span id="cb257-59"><a href="anay_6800.html#cb257-59" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">18</span>),</span>
<span id="cb257-60"><a href="anay_6800.html#cb257-60" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">12</span>, <span class="at">color =</span> <span class="st">&quot;black&quot;</span>),</span>
<span id="cb257-61"><a href="anay_6800.html#cb257-61" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb257-62"><a href="anay_6800.html#cb257-62" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb257-63"><a href="anay_6800.html#cb257-63" aria-hidden="true" tabindex="-1"></a>    <span class="at">plot.background =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb257-64"><a href="anay_6800.html#cb257-64" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">12</span>),</span>
<span id="cb257-65"><a href="anay_6800.html#cb257-65" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.key =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb257-66"><a href="anay_6800.html#cb257-66" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.title =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb257-67"><a href="anay_6800.html#cb257-67" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.background =</span> <span class="fu">element_blank</span>()</span>
<span id="cb257-68"><a href="anay_6800.html#cb257-68" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb257-69"><a href="anay_6800.html#cb257-69" aria-hidden="true" tabindex="-1"></a>Panel_1Dbinset</span></code></pre></div>
<pre><code>## Warning: Removed 1101 rows containing non-finite values (stat_smooth).</code></pre>
<div class="figure"><span style="display:block;" id="fig:high3tplot"></span>
<img src="bookdown_files/figure-html/high3tplot-1.png" alt="不同导度下的 A VS Ci" width="672" />
<p class="caption">
图 10.19: 不同导度下的 A VS Ci
</p>
</div>
<div class="sourceCode" id="cb259"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb259-1"><a href="anay_6800.html#cb259-1" aria-hidden="true" tabindex="-1"></a>data2 <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/DiffusionLimits.csv&quot;</span>)</span>
<span id="cb259-2"><a href="anay_6800.html#cb259-2" aria-hidden="true" tabindex="-1"></a>data2<span class="sc">$</span>Conductance <span class="ot">&lt;-</span></span>
<span id="cb259-3"><a href="anay_6800.html#cb259-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">revalue</span>(</span>
<span id="cb259-4"><a href="anay_6800.html#cb259-4" aria-hidden="true" tabindex="-1"></a>    data2<span class="sc">$</span>Scenario,</span>
<span id="cb259-5"><a href="anay_6800.html#cb259-5" aria-hidden="true" tabindex="-1"></a>    <span class="fu">c</span>(</span>
<span id="cb259-6"><a href="anay_6800.html#cb259-6" aria-hidden="true" tabindex="-1"></a>      <span class="st">&quot;Boundary Layer Conductance&quot;</span> <span class="ot">=</span> <span class="st">&quot;Boundary Layer&quot;</span>,</span>
<span id="cb259-7"><a href="anay_6800.html#cb259-7" aria-hidden="true" tabindex="-1"></a>      <span class="st">&quot;Mesophyll Conductance&quot;</span> <span class="ot">=</span> <span class="st">&quot;Mesophyll&quot;</span>,</span>
<span id="cb259-8"><a href="anay_6800.html#cb259-8" aria-hidden="true" tabindex="-1"></a>      <span class="st">&quot;Stomatal Conductance&quot;</span> <span class="ot">=</span> <span class="st">&quot;Stomatal&quot;</span></span>
<span id="cb259-9"><a href="anay_6800.html#cb259-9" aria-hidden="true" tabindex="-1"></a>    )</span>
<span id="cb259-10"><a href="anay_6800.html#cb259-10" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb259-11"><a href="anay_6800.html#cb259-11" aria-hidden="true" tabindex="-1"></a>cols <span class="ot">&lt;-</span> <span class="fu">gg_color_hue</span>(<span class="dv">3</span>)</span>
<span id="cb259-12"><a href="anay_6800.html#cb259-12" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb259-13"><a href="anay_6800.html#cb259-13" aria-hidden="true" tabindex="-1"></a>Panel_1E <span class="ot">&lt;-</span></span>
<span id="cb259-14"><a href="anay_6800.html#cb259-14" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data2, <span class="fu">aes</span>(<span class="at">x =</span> TotalRes, <span class="at">y =</span> Rates, <span class="at">colour =</span> Conductance)) <span class="sc">+</span></span>
<span id="cb259-15"><a href="anay_6800.html#cb259-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_point</span>(<span class="at">size =</span> <span class="dv">4</span>) <span class="sc">+</span></span>
<span id="cb259-16"><a href="anay_6800.html#cb259-16" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggtitle</span>(<span class="fu">expression</span>(<span class="fu">paste</span>(<span class="fu">bold</span>(<span class="st">&quot;(e)&quot;</span>), <span class="st">&quot; Modelled Resistance Effect&quot;</span>))) <span class="sc">+</span></span>
<span id="cb259-17"><a href="anay_6800.html#cb259-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(<span class="fu">paste</span>(r[total] <span class="sc">*</span> <span class="st">&quot; (s&quot;</span> <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb259-18"><a href="anay_6800.html#cb259-18" aria-hidden="true" tabindex="-1"></a>    <span class="dv">2</span></span>
<span id="cb259-19"><a href="anay_6800.html#cb259-19" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb259-20"><a href="anay_6800.html#cb259-20" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb259-21"><a href="anay_6800.html#cb259-21" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)), </span>
<span id="cb259-22"><a href="anay_6800.html#cb259-22" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(<span class="fu">paste</span>(C[c] <span class="sc">*</span> <span class="st">&quot; Ramp Rate (&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span></span>
<span id="cb259-23"><a href="anay_6800.html#cb259-23" aria-hidden="true" tabindex="-1"></a>                                    {</span>
<span id="cb259-24"><a href="anay_6800.html#cb259-24" aria-hidden="true" tabindex="-1"></a>                                      <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb259-25"><a href="anay_6800.html#cb259-25" aria-hidden="true" tabindex="-1"></a>                                    } <span class="sc">~</span> min <span class="sc">^</span> {</span>
<span id="cb259-26"><a href="anay_6800.html#cb259-26" aria-hidden="true" tabindex="-1"></a>                                      <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb259-27"><a href="anay_6800.html#cb259-27" aria-hidden="true" tabindex="-1"></a>                                    } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>))) <span class="sc">+</span></span>
<span id="cb259-28"><a href="anay_6800.html#cb259-28" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">0</span>, <span class="dv">50</span>)) <span class="sc">+</span></span>
<span id="cb259-29"><a href="anay_6800.html#cb259-29" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">0</span>, <span class="dv">80</span>)) <span class="sc">+</span></span>
<span id="cb259-30"><a href="anay_6800.html#cb259-30" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_color_manual</span>(</span>
<span id="cb259-31"><a href="anay_6800.html#cb259-31" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> cols,</span>
<span id="cb259-32"><a href="anay_6800.html#cb259-32" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Manipulated Resistance&quot;</span>,</span>
<span id="cb259-33"><a href="anay_6800.html#cb259-33" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;Boundary Layer&quot;</span>, <span class="st">&quot;Mesophyll&quot;</span>, <span class="st">&quot;Stomatal&quot;</span>)</span>
<span id="cb259-34"><a href="anay_6800.html#cb259-34" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb259-35"><a href="anay_6800.html#cb259-35" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb259-36"><a href="anay_6800.html#cb259-36" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb259-37"><a href="anay_6800.html#cb259-37" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb259-38"><a href="anay_6800.html#cb259-38" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.y =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb259-39"><a href="anay_6800.html#cb259-39" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.line =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="dv">1</span>),</span>
<span id="cb259-40"><a href="anay_6800.html#cb259-40" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="fl">1.5</span>),</span>
<span id="cb259-41"><a href="anay_6800.html#cb259-41" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks.length =</span> <span class="fu">unit</span>(<span class="fl">1.5</span>, <span class="st">&quot;mm&quot;</span>),</span>
<span id="cb259-42"><a href="anay_6800.html#cb259-42" aria-hidden="true" tabindex="-1"></a>    <span class="at">rect =</span> <span class="fu">element_rect</span>(<span class="at">size =</span> <span class="dv">2</span>),</span>
<span id="cb259-43"><a href="anay_6800.html#cb259-43" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>, <span class="at">color =</span> <span class="st">&#39;black&#39;</span>),</span>
<span id="cb259-44"><a href="anay_6800.html#cb259-44" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.y =</span></span>
<span id="cb259-45"><a href="anay_6800.html#cb259-45" aria-hidden="true" tabindex="-1"></a>      <span class="fu">element_text</span>(</span>
<span id="cb259-46"><a href="anay_6800.html#cb259-46" aria-hidden="true" tabindex="-1"></a>        <span class="at">size =</span> <span class="dv">14</span>,</span>
<span id="cb259-47"><a href="anay_6800.html#cb259-47" aria-hidden="true" tabindex="-1"></a>        <span class="at">color =</span> <span class="st">&#39;black&#39;</span>,</span>
<span id="cb259-48"><a href="anay_6800.html#cb259-48" aria-hidden="true" tabindex="-1"></a>        <span class="at">hjust =</span> (<span class="dv">1</span>)</span>
<span id="cb259-49"><a href="anay_6800.html#cb259-49" aria-hidden="true" tabindex="-1"></a>      ),</span>
<span id="cb259-50"><a href="anay_6800.html#cb259-50" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="fu">c</span>(<span class="fl">0.70</span>, <span class="fl">0.84</span>),</span>
<span id="cb259-51"><a href="anay_6800.html#cb259-51" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">18</span>),</span>
<span id="cb259-52"><a href="anay_6800.html#cb259-52" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">12</span>, <span class="at">color =</span> <span class="st">&quot;black&quot;</span>),</span>
<span id="cb259-53"><a href="anay_6800.html#cb259-53" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb259-54"><a href="anay_6800.html#cb259-54" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb259-55"><a href="anay_6800.html#cb259-55" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>),</span>
<span id="cb259-56"><a href="anay_6800.html#cb259-56" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>)</span>
<span id="cb259-57"><a href="anay_6800.html#cb259-57" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb259-58"><a href="anay_6800.html#cb259-58" aria-hidden="true" tabindex="-1"></a>Panel_1E</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:toresratetplot"></span>
<img src="bookdown_files/figure-html/toresratetplot-1.png" alt="不同总导度下的各个导度的变化" width="672" />
<p class="caption">
图 10.20: 不同总导度下的各个导度的变化
</p>
</div>
<div class="sourceCode" id="cb260"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb260-1"><a href="anay_6800.html#cb260-1" aria-hidden="true" tabindex="-1"></a>data <span class="ot">&lt;-</span> <span class="fu">read.csv</span>(<span class="st">&quot;./data/RASdata.csv&quot;</span>)</span>
<span id="cb260-2"><a href="anay_6800.html#cb260-2" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Ccfull <span class="ot">&lt;-</span> <span class="fu">as.numeric</span>(data<span class="sc">$</span>Ccfull)</span>
<span id="cb260-3"><a href="anay_6800.html#cb260-3" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Deactivation <span class="ot">&lt;-</span> <span class="fu">as.factor</span>(data<span class="sc">$</span>Deactivation)</span>
<span id="cb260-4"><a href="anay_6800.html#cb260-4" aria-hidden="true" tabindex="-1"></a><span class="fu">print</span>(<span class="fu">levels</span>(data<span class="sc">$</span>Deactivation))</span></code></pre></div>
<pre><code>## [1] &quot;High&quot;   &quot;Low&quot;    &quot;Medium&quot; &quot;None&quot;</code></pre>
<div class="sourceCode" id="cb262"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb262-1"><a href="anay_6800.html#cb262-1" aria-hidden="true" tabindex="-1"></a>data<span class="sc">$</span>Deactivation <span class="ot">&lt;-</span></span>
<span id="cb262-2"><a href="anay_6800.html#cb262-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">factor</span>(data<span class="sc">$</span>Deactivation, <span class="fu">levels</span>(data<span class="sc">$</span>Deactivation)[<span class="fu">c</span>(<span class="dv">4</span>, <span class="dv">2</span>, <span class="dv">3</span>, <span class="dv">1</span>)])</span>
<span id="cb262-3"><a href="anay_6800.html#cb262-3" aria-hidden="true" tabindex="-1"></a>FigS1 <span class="ot">&lt;-</span></span>
<span id="cb262-4"><a href="anay_6800.html#cb262-4" aria-hidden="true" tabindex="-1"></a>  <span class="fu">ggplot</span>(data,</span>
<span id="cb262-5"><a href="anay_6800.html#cb262-5" aria-hidden="true" tabindex="-1"></a>         <span class="fu">aes</span>(</span>
<span id="cb262-6"><a href="anay_6800.html#cb262-6" aria-hidden="true" tabindex="-1"></a>           <span class="at">x =</span> Cifull,</span>
<span id="cb262-7"><a href="anay_6800.html#cb262-7" aria-hidden="true" tabindex="-1"></a>           <span class="at">y =</span> Anet,</span>
<span id="cb262-8"><a href="anay_6800.html#cb262-8" aria-hidden="true" tabindex="-1"></a>           <span class="at">colour =</span> Deactivation,</span>
<span id="cb262-9"><a href="anay_6800.html#cb262-9" aria-hidden="true" tabindex="-1"></a>           <span class="at">linetype =</span> Deactivation</span>
<span id="cb262-10"><a href="anay_6800.html#cb262-10" aria-hidden="true" tabindex="-1"></a>         )) <span class="sc">+</span></span>
<span id="cb262-11"><a href="anay_6800.html#cb262-11" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_smooth</span>(<span class="at">method =</span> <span class="st">&quot;loess&quot;</span>, <span class="at">se =</span> <span class="cn">FALSE</span>, <span class="at">size =</span> <span class="dv">2</span>) <span class="sc">+</span></span>
<span id="cb262-12"><a href="anay_6800.html#cb262-12" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_linetype_manual</span>(</span>
<span id="cb262-13"><a href="anay_6800.html#cb262-13" aria-hidden="true" tabindex="-1"></a>    <span class="at">name =</span> <span class="st">&quot;Deactivation&quot;</span>,</span>
<span id="cb262-14"><a href="anay_6800.html#cb262-14" aria-hidden="true" tabindex="-1"></a>    <span class="at">labels =</span> <span class="fu">c</span>(<span class="st">&quot;None&quot;</span>, <span class="st">&quot;Low&quot;</span>, <span class="st">&quot;Medium&quot;</span>, <span class="st">&quot;High&quot;</span>),</span>
<span id="cb262-15"><a href="anay_6800.html#cb262-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">values =</span> <span class="fu">c</span>(<span class="st">&quot;solid&quot;</span>, <span class="st">&quot;longdash&quot;</span>, <span class="st">&quot;dashed&quot;</span>, <span class="st">&quot;dotted&quot;</span>)</span>
<span id="cb262-16"><a href="anay_6800.html#cb262-16" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">+</span></span>
<span id="cb262-17"><a href="anay_6800.html#cb262-17" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">x =</span> <span class="fu">expression</span>(C[i] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> mol <span class="sc">^</span> {</span>
<span id="cb262-18"><a href="anay_6800.html#cb262-18" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb262-19"><a href="anay_6800.html#cb262-19" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>),</span>
<span id="cb262-20"><a href="anay_6800.html#cb262-20" aria-hidden="true" tabindex="-1"></a>  <span class="at">y =</span> <span class="fu">expression</span>(A[net] <span class="sc">~</span> <span class="st">&quot;(&quot;</span> <span class="sc">*</span> mu <span class="sc">*</span> mol <span class="sc">~</span> m <span class="sc">^</span> {</span>
<span id="cb262-21"><a href="anay_6800.html#cb262-21" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">2</span></span>
<span id="cb262-22"><a href="anay_6800.html#cb262-22" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">~</span> s <span class="sc">^</span> {</span>
<span id="cb262-23"><a href="anay_6800.html#cb262-23" aria-hidden="true" tabindex="-1"></a>    <span class="sc">-</span><span class="dv">1</span></span>
<span id="cb262-24"><a href="anay_6800.html#cb262-24" aria-hidden="true" tabindex="-1"></a>  } <span class="sc">*</span> <span class="st">&quot;)&quot;</span>)) <span class="sc">+</span></span>
<span id="cb262-25"><a href="anay_6800.html#cb262-25" aria-hidden="true" tabindex="-1"></a>  <span class="fu">labs</span>(<span class="at">colour =</span> <span class="st">&#39;Deactivation&#39;</span>) <span class="sc">+</span></span>
<span id="cb262-26"><a href="anay_6800.html#cb262-26" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_x_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">100</span>),</span>
<span id="cb262-27"><a href="anay_6800.html#cb262-27" aria-hidden="true" tabindex="-1"></a>                     <span class="at">breaks =</span> <span class="fu">c</span>(<span class="dv">25</span>, <span class="dv">40</span>, <span class="dv">55</span>, <span class="dv">70</span>, <span class="dv">85</span>, <span class="dv">100</span>)) <span class="sc">+</span></span>
<span id="cb262-28"><a href="anay_6800.html#cb262-28" aria-hidden="true" tabindex="-1"></a>  <span class="fu">scale_y_continuous</span>(<span class="at">limits =</span> <span class="fu">c</span>(<span class="sc">-</span><span class="dv">5</span>, <span class="dv">5</span>)) <span class="sc">+</span></span>
<span id="cb262-29"><a href="anay_6800.html#cb262-29" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_hline</span>(<span class="at">yintercept =</span> <span class="dv">0</span>, <span class="at">size =</span> <span class="fl">1.5</span>) <span class="sc">+</span></span>
<span id="cb262-30"><a href="anay_6800.html#cb262-30" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_bw</span>() <span class="sc">+</span></span>
<span id="cb262-31"><a href="anay_6800.html#cb262-31" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme</span>(</span>
<span id="cb262-32"><a href="anay_6800.html#cb262-32" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb262-33"><a href="anay_6800.html#cb262-33" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.title.y =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">20</span>),</span>
<span id="cb262-34"><a href="anay_6800.html#cb262-34" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.line =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="dv">1</span>),</span>
<span id="cb262-35"><a href="anay_6800.html#cb262-35" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks =</span> <span class="fu">element_line</span>(<span class="at">size =</span> <span class="fl">1.5</span>),</span>
<span id="cb262-36"><a href="anay_6800.html#cb262-36" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.ticks.length =</span> <span class="fu">unit</span>(<span class="fl">1.5</span>, <span class="st">&quot;mm&quot;</span>),</span>
<span id="cb262-37"><a href="anay_6800.html#cb262-37" aria-hidden="true" tabindex="-1"></a>    <span class="at">rect =</span> <span class="fu">element_rect</span>(<span class="at">size =</span> <span class="dv">2</span>),</span>
<span id="cb262-38"><a href="anay_6800.html#cb262-38" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.x =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">14</span>, <span class="at">color =</span> <span class="st">&#39;black&#39;</span>),</span>
<span id="cb262-39"><a href="anay_6800.html#cb262-39" aria-hidden="true" tabindex="-1"></a>    <span class="at">axis.text.y =</span></span>
<span id="cb262-40"><a href="anay_6800.html#cb262-40" aria-hidden="true" tabindex="-1"></a>      <span class="fu">element_text</span>(</span>
<span id="cb262-41"><a href="anay_6800.html#cb262-41" aria-hidden="true" tabindex="-1"></a>        <span class="at">size =</span> <span class="dv">14</span>,</span>
<span id="cb262-42"><a href="anay_6800.html#cb262-42" aria-hidden="true" tabindex="-1"></a>        <span class="at">color =</span> <span class="st">&#39;black&#39;</span>,</span>
<span id="cb262-43"><a href="anay_6800.html#cb262-43" aria-hidden="true" tabindex="-1"></a>        <span class="at">hjust =</span> (<span class="dv">1</span>)</span>
<span id="cb262-44"><a href="anay_6800.html#cb262-44" aria-hidden="true" tabindex="-1"></a>      ),</span>
<span id="cb262-45"><a href="anay_6800.html#cb262-45" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.position =</span> <span class="fu">c</span>(<span class="fl">0.8</span>, <span class="fl">0.2</span>),</span>
<span id="cb262-46"><a href="anay_6800.html#cb262-46" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.text =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">16</span>),</span>
<span id="cb262-47"><a href="anay_6800.html#cb262-47" aria-hidden="true" tabindex="-1"></a>    <span class="at">legend.title =</span> <span class="fu">element_text</span>(<span class="at">size =</span> <span class="dv">16</span>),</span>
<span id="cb262-48"><a href="anay_6800.html#cb262-48" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.major =</span> <span class="fu">element_blank</span>(),</span>
<span id="cb262-49"><a href="anay_6800.html#cb262-49" aria-hidden="true" tabindex="-1"></a>    <span class="at">panel.grid.minor =</span> <span class="fu">element_blank</span>()</span>
<span id="cb262-50"><a href="anay_6800.html#cb262-50" aria-hidden="true" tabindex="-1"></a>  )</span>
<span id="cb262-51"><a href="anay_6800.html#cb262-51" aria-hidden="true" tabindex="-1"></a>FigS1</span></code></pre></div>
<pre><code>## Warning: Removed 1230 rows containing non-finite values (stat_smooth).</code></pre>
<div class="figure"><span style="display:block;" id="fig:deasratetplot"></span>
<img src="bookdown_files/figure-html/deasratetplot-1.png" alt="Rubisco不同失活程度下的下 A VS Ci" width="672" />
<p class="caption">
图 10.21: Rubisco不同失活程度下的下 A VS Ci
</p>
</div>

</div>
</div>
<div id="fluro68" class="section level2" number="10.10">
<h2><span class="header-section-number">10.10</span> LI-6800 荧光数据分析</h2>
<p>LI-6800 能够直接提供基本的叶绿素荧光参数，其他参数均可通过这些基本的参数进行计算，计算也较简单，在此不赘述，需要注意的是快相荧光部分的数据，因为分析 ojip 数据的模型有很多，很多都需要复杂的计算，在此我们先将其中较为简单的 jip test 数据分析进行介绍。</p>
<div id="jiptest" class="section level3" number="10.10.1">
<h3><span class="header-section-number">10.10.1</span> jip test 的实现</h3>
<p>LI-6800 增加了 ojip 曲线测量功能，本功能主要是针对测量数据的 jip test 的实现。</p>
</div>
<div id="jiptest_pack" class="section level3" number="10.10.2">
<h3><span class="header-section-number">10.10.2</span> <code>jiptest</code> 软件包安装</h3>
<p>请在 github 安装，有可能需要安装 <code>remotes</code></p>
<div class="sourceCode" id="cb264"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb264-1"><a href="anay_6800.html#cb264-1" aria-hidden="true" tabindex="-1"></a><span class="fu">install.packages</span>(<span class="st">&quot;remotes&quot;</span>)</span></code></pre></div>
<p>然后安装：</p>
<div class="sourceCode" id="cb265"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb265-1"><a href="anay_6800.html#cb265-1" aria-hidden="true" tabindex="-1"></a><span class="fu">install_github</span>(<span class="st">&quot;zhujiedong/jiptest&quot;</span>)</span></code></pre></div>
<p>如果因为网络原因失败，可以转战 gitee:</p>
<div class="sourceCode" id="cb266"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb266-1"><a href="anay_6800.html#cb266-1" aria-hidden="true" tabindex="-1"></a><span class="fu">install_git</span>(<span class="st">&#39;https://gitee.com/zhu_jie_dong/jiptest&#39;</span>)</span></code></pre></div>
</div>
<div id="readfluor" class="section level3" number="10.10.3">
<h3><span class="header-section-number">10.10.3</span> <code>read_files</code> 及 <code>read_dcfiles</code> 函数</h3>
<p><code>read_files</code> 用于批量读取所有调制光测量数据，方便用于其他的数据分析。<strong>函数要求所有数据必须是 <code>xlsx</code> 格式，并且所有测量数据都保存在同一文件夹内。</strong>，如有其他文件或测量数据则会报错。
<code>read_dcfiles</code> 用于批量读取所有连续光测量数据，其他与 <code>read_dcfiles</code> 相同。例如我放在了 data文件夹下的 ojip 文件夹内，有五个数据文件。</p>
<p>函数仅有一个参数，即保存数据文件夹的路径，使用如下：</p>
<div class="sourceCode" id="cb267"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb267-1"><a href="anay_6800.html#cb267-1" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(jiptest)</span>
<span id="cb267-2"><a href="anay_6800.html#cb267-2" aria-hidden="true" tabindex="-1"></a>jip_data<span class="ot">&lt;-</span> <span class="fu">read_files</span>(<span class="st">&quot;data/ojip&quot;</span>)</span></code></pre></div>
<div class="sourceCode" id="cb268"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb268-1"><a href="anay_6800.html#cb268-1" aria-hidden="true" tabindex="-1"></a>jip_dcdata <span class="ot">&lt;-</span> <span class="fu">read_dcfiles</span>(<span class="st">&quot;./data/ojip&quot;</span>)</span></code></pre></div>
<p>调制光的信号前 10 行数据：</p>
<table>
<caption><span id="tab:unnamed-chunk-52">表 10.1: </span>jiptest 批量导入数据后的样式</caption>
<thead>
<tr class="header">
<th align="right">SECS</th>
<th align="right">FLUOR</th>
<th align="right">NORM_FLUOR</th>
<th align="left">SOURCE</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td align="right">6.10e-06</td>
<td align="right">621</td>
<td align="right">0.0005027</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="even">
<td align="right">1.01e-05</td>
<td align="right">620</td>
<td align="right">0.0000000</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="odd">
<td align="right">1.42e-05</td>
<td align="right">649</td>
<td align="right">0.0145781</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="even">
<td align="right">1.80e-05</td>
<td align="right">629</td>
<td align="right">0.0045242</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="odd">
<td align="right">2.21e-05</td>
<td align="right">674</td>
<td align="right">0.0271455</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="even">
<td align="right">2.61e-05</td>
<td align="right">736</td>
<td align="right">0.0583126</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
</tbody>
</table>
<p>连续光的信号前 10 行数据：</p>
<table>
<caption><span id="tab:unnamed-chunk-53">表 10.2: </span>jiptest DC 数据批量导入数据后的样式</caption>
<thead>
<tr class="header">
<th align="right">SECS</th>
<th align="right">FLUOR</th>
<th align="right">NORM_FLUOR</th>
<th align="left">SOURCE</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td align="right">6.10e-06</td>
<td align="right">98161</td>
<td align="right">0.0000000</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="even">
<td align="right">1.01e-05</td>
<td align="right">100331</td>
<td align="right">0.0071347</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="odd">
<td align="right">1.42e-05</td>
<td align="right">102577</td>
<td align="right">0.0145193</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="even">
<td align="right">1.80e-05</td>
<td align="right">104849</td>
<td align="right">0.0219894</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="odd">
<td align="right">2.21e-05</td>
<td align="right">107214</td>
<td align="right">0.0297652</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
<tr class="even">
<td align="right">2.61e-05</td>
<td align="right">109624</td>
<td align="right">0.0376890</td>
<td align="left">INDUCTION-4188-20201116-10_53_39</td>
</tr>
</tbody>
</table>
<blockquote>
<p>注：NORM_FLUOR 是标准化后的荧光信号数据，其中标准化采用的方式是 <span class="citation">Stirbet and Govindjee (<a href="#ref-stirbetChlorophyllFluorescenceInduction2012" role="doc-biblioref">2012</a>)</span> 所采用的：<span class="math inline">\(F = \frac{F_t - F_o}{F_m - F_o}\)</span>，而曲线上部的面积则采用 <span class="citation">Stirbet and Govindjee (<a href="#ref-stirbetRelationKautskyEffect2011" role="doc-biblioref">2011</a>)</span> 的方式进行标准化，以方便不同叶片之间的比较，具体为 <span class="math inline">\(area = \frac{area}{F_m - F_o}\)</span></p>
</blockquote>
</div>
<div id="testfluor" class="section level3" number="10.10.4">
<h3><span class="header-section-number">10.10.4</span> <code>jip_test</code> 及 <code>jip_dctest</code> 函数</h3>
<p><code>jiptest</code> 是 jiptest 的核心函数，用于所有数据的 <code>jiptest</code> 分析，函数仅包一个参数，测量数据的保存文件夹路径。
<code>jip_dctest</code> 与 <code>jip_test</code> 相似，用于连续光测量数据的分析。</p>
<div class="sourceCode" id="cb269"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb269-1"><a href="anay_6800.html#cb269-1" aria-hidden="true" tabindex="-1"></a>actest <span class="ot">&lt;-</span> <span class="fu">jip_test</span>(<span class="st">&quot;./data/ojip&quot;</span>)</span></code></pre></div>
<div class="sourceCode" id="cb270"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb270-1"><a href="anay_6800.html#cb270-1" aria-hidden="true" tabindex="-1"></a>dctest <span class="ot">&lt;-</span> <span class="fu">jip_dctest</span>(<span class="st">&quot;./data/ojip&quot;</span>)</span></code></pre></div>
<p>可以看出，对于标准化之后的参数，二者基本一致，原始信号则无法一致，因为连续光信号强度更高（所以数据的比较要在相同的测量光内进行）：</p>
<p>调制光信号的计算参数：</p>
<table>
<caption><span id="tab:jipres">表 10.3: </span>jiptest 输出的计算参数</caption>
<thead>
<tr class="header">
<th align="left">parameters</th>
<th align="right">data_file1</th>
<th align="right">data_file2</th>
<th align="right">data_file3</th>
<th align="right">data_file4</th>
<th align="right">data_file5</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td align="left">Fo</td>
<td align="right">620.000</td>
<td align="right">887.000</td>
<td align="right">849.000</td>
<td align="right">981.000</td>
<td align="right">914.000</td>
</tr>
<tr class="even">
<td align="left">Fm</td>
<td align="right">2609.280</td>
<td align="right">4649.520</td>
<td align="right">3714.270</td>
<td align="right">4225.240</td>
<td align="right">3754.270</td>
</tr>
<tr class="odd">
<td align="left">F300</td>
<td align="right">1593.200</td>
<td align="right">2181.400</td>
<td align="right">1798.600</td>
<td align="right">2067.800</td>
<td align="right">2537.200</td>
</tr>
<tr class="even">
<td align="left">FJ</td>
<td align="right">1722.900</td>
<td align="right">2594.300</td>
<td align="right">2104.600</td>
<td align="right">2456.800</td>
<td align="right">2569.000</td>
</tr>
<tr class="odd">
<td align="left">FI</td>
<td align="right">2268.950</td>
<td align="right">4443.110</td>
<td align="right">3547.110</td>
<td align="right">4009.220</td>
<td align="right">3556.530</td>
</tr>
<tr class="even">
<td align="left">Tfmax</td>
<td align="right">159.998</td>
<td align="right">256.016</td>
<td align="right">316.016</td>
<td align="right">272.016</td>
<td align="right">200.016</td>
</tr>
</tbody>
</table>
<p>连续光信号计算参数：</p>
<table>
<caption><span id="tab:dcjipres">表 10.4: </span>jiptest DC 数据输出的计算参数</caption>
<thead>
<tr class="header">
<th align="left">parameters</th>
<th align="right">data_file1</th>
<th align="right">data_file2</th>
<th align="right">data_file3</th>
<th align="right">data_file4</th>
<th align="right">data_file5</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td align="left">Fo</td>
<td align="right">98161.000</td>
<td align="right">154000.000</td>
<td align="right">133191.000</td>
<td align="right">156664.000</td>
<td align="right">153589.000</td>
</tr>
<tr class="even">
<td align="left">Fm</td>
<td align="right">402308.000</td>
<td align="right">713839.000</td>
<td align="right">560610.000</td>
<td align="right">647660.000</td>
<td align="right">584839.000</td>
</tr>
<tr class="odd">
<td align="left">F300</td>
<td align="right">246753.000</td>
<td align="right">338091.000</td>
<td align="right">275476.800</td>
<td align="right">322859.200</td>
<td align="right">388110.400</td>
</tr>
<tr class="even">
<td align="left">FJ</td>
<td align="right">267827.000</td>
<td align="right">400744.000</td>
<td align="right">320245.000</td>
<td align="right">376885.000</td>
<td align="right">406671.000</td>
</tr>
<tr class="odd">
<td align="left">FI</td>
<td align="right">349985.000</td>
<td align="right">681505.000</td>
<td align="right">534314.000</td>
<td align="right">614590.000</td>
<td align="right">552253.000</td>
</tr>
<tr class="even">
<td align="left">Tfmax</td>
<td align="right">171.998</td>
<td align="right">276.016</td>
<td align="right">300.016</td>
<td align="right">288.016</td>
<td align="right">212.016</td>
</tr>
</tbody>
</table>
<p>计算参数见表 <a href="anay_6800.html#tab:jipres">10.3</a> 及 <a href="anay_6800.html#tab:dcjipres">10.4</a>，考虑到排版，仅显示部分内容。若需要将数据导出，可以使用相关命令，如：</p>
<div class="sourceCode" id="cb271"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb271-1"><a href="anay_6800.html#cb271-1" aria-hidden="true" tabindex="-1"></a><span class="co"># export the results of jiptest to a csv file</span></span>
<span id="cb271-2"><a href="anay_6800.html#cb271-2" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(actest, <span class="st">&quot;d:/data/jip_resluts.csv&quot;</span>)</span>
<span id="cb271-3"><a href="anay_6800.html#cb271-3" aria-hidden="true" tabindex="-1"></a><span class="fu">write.csv</span>(dctest, <span class="st">&quot;d:/data/dcjip_resluts.csv&quot;</span>)</span></code></pre></div>
</div>
<div id="plotfluor" class="section level3" number="10.10.5">
<h3><span class="header-section-number">10.10.5</span> 图像查看函数</h3>
<p>之前的预览方式已经彻底从代码中删除，不在提供。如果仅仅是简单查看结果，那么我们直接用默认参数就好，作图的数据是之前导入的数据文件：</p>
<p>默认使用标准化的荧光信号（也就是除以最大值，标准化到 0~1 之间，LI-6800 在 1.4 之后的版本也提供了仪器上查看的界面）。</p>
<div id="default-plot-jiptest" class="section level4" number="10.10.5.1">
<h4><span class="header-section-number">10.10.5.1</span> 默认图形的方式</h4>
<ol style="list-style-type: decimal">
<li>默认调制光图形</li>
</ol>
<div class="sourceCode" id="cb272"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb272-1"><a href="anay_6800.html#cb272-1" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(jip_data)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:default-moulation-plot-ac"></span>
<img src="bookdown_files/figure-html/default-moulation-plot-ac-1.png" alt="默认调制光图形查看" width="672" />
<p class="caption">
图 10.22: 默认调制光图形查看
</p>
</div>
<ol start="2" style="list-style-type: decimal">
<li>默认连续光图形</li>
</ol>
<div class="sourceCode" id="cb273"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb273-1"><a href="anay_6800.html#cb273-1" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(jip_dcdata)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:default-moulation-plot-dc"></span>
<img src="bookdown_files/figure-html/default-moulation-plot-dc-1.png" alt="默认连续光图形查看" width="672" />
<p class="caption">
图 10.23: 默认连续光图形查看
</p>
</div>
<p>默认图形，仅仅查看结果是可以的，当然有些情况下需要进行调整才方便做展示用。</p>
</div>
<div id="customized-plot-jiptest" class="section level4" number="10.10.5.2">
<h4><span class="header-section-number">10.10.5.2</span> 定制化图形的方式</h4>
<p>这个是这次改动的重点之一，例如都使用原始信号分别做上面两幅图：</p>
<ol style="list-style-type: decimal">
<li>定制调制光图形</li>
</ol>
<p>这里使用原始荧光信号，然后更改图例颜色等，主要是 <code>add_leg = FALSE</code> 不增加默认的图例，以及 <code>normalized = FALSE</code> 不使用信号标准化。其他请参考帮助 <code>?plot.jip</code>。 我简单写了一下帮助文档，大家应该基本能看明白，我实在没时间。</p>
<div class="sourceCode" id="cb274"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb274-1"><a href="anay_6800.html#cb274-1" aria-hidden="true" tabindex="-1"></a>cls <span class="ot">&lt;-</span> <span class="fu">palette.colors</span>(<span class="at">n =</span> <span class="dv">5</span>,  <span class="st">&quot;set 2&quot;</span>, <span class="at">alpha =</span> <span class="fl">0.8</span>)</span>
<span id="cb274-2"><a href="anay_6800.html#cb274-2" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(jip_data,</span>
<span id="cb274-3"><a href="anay_6800.html#cb274-3" aria-hidden="true" tabindex="-1"></a>     <span class="at">ylab =</span> <span class="st">&#39;Normalized fluorescence signals&#39;</span>,</span>
<span id="cb274-4"><a href="anay_6800.html#cb274-4" aria-hidden="true" tabindex="-1"></a>     <span class="at">add_leg =</span> <span class="cn">FALSE</span>,</span>
<span id="cb274-5"><a href="anay_6800.html#cb274-5" aria-hidden="true" tabindex="-1"></a>     <span class="at">def_pch =</span> <span class="dv">14</span><span class="sc">:</span><span class="dv">18</span>,</span>
<span id="cb274-6"><a href="anay_6800.html#cb274-6" aria-hidden="true" tabindex="-1"></a>     <span class="at">col =</span> cls,</span>
<span id="cb274-7"><a href="anay_6800.html#cb274-7" aria-hidden="true" tabindex="-1"></a>     <span class="at">main =</span> <span class="st">&quot;Demodulated signals&quot;</span>, <span class="at">normalized =</span> <span class="cn">FALSE</span>)</span>
<span id="cb274-8"><a href="anay_6800.html#cb274-8" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb274-9"><a href="anay_6800.html#cb274-9" aria-hidden="true" tabindex="-1"></a><span class="fu">legend</span>(</span>
<span id="cb274-10"><a href="anay_6800.html#cb274-10" aria-hidden="true" tabindex="-1"></a>  <span class="st">&quot;topleft&quot;</span>,</span>
<span id="cb274-11"><a href="anay_6800.html#cb274-11" aria-hidden="true" tabindex="-1"></a>  <span class="fu">unique</span>(jip_data<span class="sc">$</span>SOURCE),</span>
<span id="cb274-12"><a href="anay_6800.html#cb274-12" aria-hidden="true" tabindex="-1"></a>  <span class="at">col =</span> cls,</span>
<span id="cb274-13"><a href="anay_6800.html#cb274-13" aria-hidden="true" tabindex="-1"></a>  <span class="at">pch =</span> <span class="dv">14</span><span class="sc">:</span><span class="dv">18</span>,</span>
<span id="cb274-14"><a href="anay_6800.html#cb274-14" aria-hidden="true" tabindex="-1"></a>  <span class="at">cex =</span> <span class="fl">0.6</span>,</span>
<span id="cb274-15"><a href="anay_6800.html#cb274-15" aria-hidden="true" tabindex="-1"></a>  <span class="at">pt.cex =</span> <span class="fl">1.2</span>,</span>
<span id="cb274-16"><a href="anay_6800.html#cb274-16" aria-hidden="true" tabindex="-1"></a>  <span class="at">bty =</span> <span class="st">&quot;n&quot;</span>)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:cus-ac-plot-leg-cls"></span>
<img src="bookdown_files/figure-html/cus-ac-plot-leg-cls-1.png" alt="定制调制光图形示例" width="672" />
<p class="caption">
图 10.24: 定制调制光图形示例
</p>
</div>
<ol start="2" style="list-style-type: decimal">
<li>定制连续光图形</li>
</ol>
<p>连续光图形，只改了两个地方，图例的位置以及不显示标准化的数据。</p>
<div class="sourceCode" id="cb275"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb275-1"><a href="anay_6800.html#cb275-1" aria-hidden="true" tabindex="-1"></a><span class="fu">plot</span>(jip_dcdata, <span class="at">legend_pos =</span> <span class="st">&quot;bottomright&quot;</span>, <span class="at">normalized =</span> <span class="cn">FALSE</span>)</span></code></pre></div>
<div class="figure"><span style="display:block;" id="fig:cus-dc-plot-leg-cls"></span>
<img src="bookdown_files/figure-html/cus-dc-plot-leg-cls-1.png" alt="定制连续光图形示例" width="672" />
<p class="caption">
图 10.25: 定制连续光图形示例
</p>
</div>
<p><strong>关于标准化和非标准化图形差异大的问题，这个比较简单，原始信号比较低的那条线，是不同物种的不同叶片，所以不具备比较价值，我只是数据测试。</strong></p>
<hr />
<p><strong>建议在开始分析数据前，使用如上方式作图查看数据质量，若使用调制光数据测量的荧光信号太弱，数据点太散，则可以使用连续光测量信号进行分析，对于归一化的荧光参数，二者几乎无差别，当然避免陷入被动的最好方式还是最开始测量时注意检查数据质量</strong></p>

</div>
</div>
</div>
</div>
<h3>参考文献</h3>
<div id="refs" class="references csl-bib-body hanging-indent">
<div id="ref-Coursolle12019" class="csl-entry">
Coursolle, Carole, Guillaume O. Prud’homme, Manuel Lamothe1, and Nathalie Isabel1. 2019. <span>“Measuring Rapid a–Ci Curves in Boreal Conifers: Black Spruce and Balsam Fir.”</span> <em>Frontiers in Plant Science</em>. <a href="https://doi.org/10.3389/fpls.2019.01276">https://doi.org/10.3389/fpls.2019.01276</a>.
</div>
<div id="ref-stinziano2019" class="csl-entry">
Joseph R., Stinziano, Adamson Rachael K., and Hanson David T. 2019. <span>“Using Multirate Rapid ACi Curves as a Tool to Explore New Questions in the Photosynthetic Physiology of Plants.”</span> <em>New Phytologist</em>. <a href="https://doi.org/10.1111/nph.15657">https://doi.org/10.1111/nph.15657</a>.
</div>
<div id="ref-stinziano2017" class="csl-entry">
Stinziano, J. R., P. B. Morgan, D. J. Lynch, A. J. Saathoff, D. K. Mcdermitt, and D. T. Hanson. 2017. <span>“The Rapid a-Ci Response: Photosynthesis in the Phenomic Era.”</span> <em>Plant Cell &amp; Environment</em> 40.
</div>
<div id="ref-stinziano2018" class="csl-entry">
Stinziano, Joseph R, Dayle K Mcdermitt, Douglas J Lynch, Aaron J Saathoff, Patrick B Morgan, and David T Hanson. 2018. <span>“The Rapid a/Ci Response: A Guide to Best Practices.”</span> <em>New Phytologist</em>.
</div>
<div id="ref-stirbetRelationKautskyEffect2011" class="csl-entry">
Stirbet, Alexandrina, and Govindjee. 2011. <span>“On the Relation Between the <span>Kautsky</span> Effect (Chlorophyll a Fluorescence Induction) and <span>Photosystem</span> <span>II</span>: <span>Basics</span> and Applications of the <span>OJIP</span> Fluorescence Transient.”</span> <em>Journal of Photochemistry and Photobiology B: Biology</em>, Special <span>Issue</span> on <span>Recent</span> <span>Progress</span> in the <span>Studies</span> of <span>Structure</span> and <span>Function</span> of <span>Photosystem</span> <span>II</span>, 104 (1): 236–57. <a href="https://doi.org/10.1016/j.jphotobiol.2010.12.010">https://doi.org/10.1016/j.jphotobiol.2010.12.010</a>.
</div>
<div id="ref-stirbetChlorophyllFluorescenceInduction2012" class="csl-entry">
Stirbet, Alexandrina, and Govindjee. 2012. <span>“Chlorophyll a Fluorescence Induction: A Personal Perspective of the Thermal Phase, the <span>J</span>–<span>I</span>–<span>P</span> Rise.”</span> <em>Photosynthesis Research</em> 113 (1): 15–61. <a href="https://doi.org/10.1007/s11120-012-9754-5">https://doi.org/10.1007/s11120-012-9754-5</a>.
</div>
</div>
            </section>

          </div>
        </div>
      </div>
<a href="start_con.html" class="navigation navigation-prev " aria-label="Previous page"><i class="fa fa-angle-left"></i></a>
<a href="big-leaf.html" class="navigation navigation-next " aria-label="Next page"><i class="fa fa-angle-right"></i></a>
    </div>
  </div>
<script src="libs/gitbook-2.6.7/js/app.min.js"></script>
<script src="libs/gitbook-2.6.7/js/clipboard.min.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-search.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-sharing.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-fontsettings.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-bookdown.js"></script>
<script src="libs/gitbook-2.6.7/js/jquery.highlight.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-clipboard.js"></script>
<script>
gitbook.require(["gitbook"], function(gitbook) {
gitbook.start({
"sharing": {
"github": true,
"facebook": false,
"twitter": true,
"linkedin": false,
"weibo": false,
"instapaper": false,
"vk": false,
"whatsapp": false,
"all": ["facebook", "twitter", "linkedin", "weibo", "instapaper"]
},
"fontsettings": {
"theme": "white",
"family": "sans",
"size": 2
},
"edit": {
"link": "https://github.com/zhujiedong/photoanalysis/blob/master/12-1-plantecophys-6800.Rmd",
"text": "编辑"
},
"history": {
"link": null,
"text": null
},
"view": {
"link": null,
"text": null
},
"download": ["bookdown.pdf"],
"search": {
"engine": "fuse",
"options": null
},
"toc": {
"collapse": "section"
}
});
});
</script>

<!-- dynamically load mathjax for compatibility with self-contained -->
<script>
  (function () {
    var script = document.createElement("script");
    script.type = "text/javascript";
    var src = "true";
    if (src === "" || src === "true") src = "https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-MML-AM_CHTML";
    if (location.protocol !== "file:")
      if (/^https?:/.test(src))
        src = src.replace(/^https?:/, '');
    script.src = src;
    document.getElementsByTagName("head")[0].appendChild(script);
  })();
</script>
</body>

</html>
